我想将中文文本转换为 Unicode 代码点

Question

大家好我有这个中文文本“请检查是否安装客户端”我想知道我怎样才能让它看起来像这样“\u5fae\u4fe1APP\u5524\u8d77\u6210\u529f”我正在使用delphi 10.2 I感谢您的帮助

Answer 1

你转换后的文字字符数是9个，而中文是10个，我猜是转换不正确。您如何看待这个：“\u8BF7\u68C0\u67E5\u662F\u5426\u5B89\u88C5\u5BA2\u6237\u7AEF”？

上面的转换是这样完成的：

procedure TForm1.BitBtn1Click(Sender: TObject);
var
    S1 : String;
    S2 : String;
    C  : Char;
begin
    S1 := '请检查是否安装客户端';
    Memo1.Lines.Add(S1);

    S2 := '';
    for C in S1 do
        S2 := S2 + '\u' + IntToHex(Ord(C), 4);

    Memo1.Lines.Add(S2);
end;

我想将中文文本转换为 Unicode 代码点

I would like to convert Chinese text to Unicode code points

delphi