Lazarus漢字與16進制互轉

我沒有修改代碼編輯器爲本地的編碼。默認使用utf-8.所以轉換總是要涉及解碼。 

program Project1;

uses
  SysUtils;

var
  i: string;
  j:integer;
  k:shortstring;
  m:smallint;
begin
 //漢字轉16進制編碼。
 i:='一龥';
 m:=1;
 for  m:=1 to  length(utf8decode(i)) do
 begin
   j:=integer(utf8decode(i)[m]);
   k:=hexstr(j,4);
   Writeln(k);
 end;
 //16進制轉漢字
 writeln(utf8decode('4e00轉成的漢字爲:')+ widechar(strtoint('$'+'4e00')));
 readln;
end.