Delphi 10.1 Berlin UTF8String Test

2018-06-17 18:58:36来源:未知 阅读 ()

新老客户大回馈,云服务器低至5折

Delphi 10.1 Berlin UTF8String Test

procedure TForm1.Button1Click(Sender: TObject);
var s: UTF8String;
    i: Integer;
begin
     s := UTF8Encode('123中文测试');

     Memo1.Lines.Add(UTF8Decode(s));

     for i:=Low(s) to High(s) do
         Memo1.Lines.Add(i.ToString + ' : ' + IntToHex(Ord(s[i]), 2));
end;

 

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:Delphi RAD Server 应用服务基础平台

下一篇:Delphi XE10.1 引用计数