沒力543

0愛的鼓勵 0訂閱站台

var
  str8: Utf8String;
  uniString : string;
begin
  uniString  := '珦';
  str8 := uniString;
  //Unicode 10進位碼
  edtDec.Text := intTostr(ord(uniString[1]));
  //UTF16 Hex code
  edtUTF16.Text := IntToHex(ord(uniString[1]),2);
  //Utf8 Hex code
  edtUtf8.Text := IntToHex(ord(str8[1]),2)+IntToHex(ord(str8[2]),2)+IntToHex(ord(str8[3]),2);