如何将字符串或字符转换为其unicode表示并返回?

时间:2014-08-05 06:49:41

标签: delphi unicode delphi-xe

我正在学习更多有关Unicode的知识。有人可以演示如何将代码点值转换为字符串,反之亦然。

例如:如何将U+0037转换为7的字符或字符串表示。

还请说明如何为ascii执行此操作。例如:将 转换为其字符或字符串表示形式,即空格。

2 个答案:

答案 0 :(得分:6)

Delphi字符串已经使用Unicode(UTF16)编码,因此不需要将delphi字符串“转换”为Unicode。下面是一个如何将nbsp(U + 00A0)和'7'(U + 0037')的Unicode表示直接插入delphi字符串的示例:

procedure TForm1.Button1Click(Sender: TObject);
const
  U_nbsp = $00A0;
  U_7 = $0037;

var
  S: string;

begin
  S:= 'abcd' + Char(U_nbsp) + Char(U_7);
  ShowMessage(S);
end;

答案 1 :(得分:0)

procedure TFrm.FormCreate(Sender: TObject);
begin

  TabEmoj.Text:=#$1F604;
  KeyEmojisActivator.Text:=#$1F604;
  Attachbutton.Text:=#$1F4CE;
   VideoAudiobutton.Text:=#$1F3A5;  /// MIC = #$1F3A4;
   EnterButton.Text:=#$21A9;
end;  
// use this. Download example on u9.by