怎么将D7的dfm文件里的Unicode的汉字信息还原成汉字？

Question

D7的dfm文件是Unicode格式，如#28304#31243#24207，怎么将其还原成汉字呢？请多多指教！！

Answer 1

var
   tls:TStringList;
   s:String;
   i:Integer;
begin
   s:='#28304#31243#24207';
   tls:=TStringList.Create;
   try
      tls.Text:=stringreplace(s,'#',#13#10,[rfReplaceAll]);
      tls.Delimiter:='#';
      memo1.Clear;
      for i:=0 to tls.Count-1 do
      begin
         if tls.Strings[i]<>'' then Memo1.Text:=Memo1.Text+widechar(strtoint(tls.Strings[i]));
      end;
   finally
      tls.Free;
   end;
end;

Answer 2

转出来的是WideString(Unicode)，而上面的已经是AnsiString，千万千万要注意+小心……