var w: WideString; i: Integer; s: string; List: TStringList; begin List := TStringList.Create; for i := e00 to fa5 do begin s := #36 + IntToHex(i,4); {#36 是 $ 字符} w := WideChar(i); List.Add(s + '=' + w); end; List.SaveToFile('c:\temp\Unicode-Hz.txt'); List.Free; end;
var w: WideString; i: Integer; s: string; List:
阅读背景：
获取所有汉字与 Unicode 的对照表
来源：互联网
分享到：
