获取所有汉字与 Unicode 的对照表

var
  w: WideString;
  i: Integer;
  s: string;
  List: TStringList;
begin
  List := TStringList .Create;

  for i := $4e00 to $9fa5 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;

转载于:https://www.cnblogs.com/28088191/archive/2008/06/13/1220366.html