我没有修改代码编辑器为本地的编码。默认使用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.