随笔 - 2146  文章 - 96 评论 - 11733 trackbacks - 253

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;

posted on 2007-12-15 22:09 万一 阅读(...) 评论(...) 编辑 收藏