#20013#22269如何转化成'中国'二字。瓦匠泥急救！！！

Question

不是，是delphi6.0生成的dfm文件中的东西

Answer 1

写一个函数，遍历字符串。每个#nnnnn用256除strtoint(nnnnn),商为一个字节（高），余数为第二个字节（低）。我认为可以

Answer 2

http://www.csdn.net/expert/topic/456/456970.shtm

Answer 3

如果是asc
chr()即可
如果是unicode
则用api函数转换一下

Answer 4

s:='#20013#22269#20013#22269#20013#22269#20013#22269#20013#22269#20013#22269#20013#22269#20013'
for i:=0 to length(s)/5 
begin
  sn:=strtoint(copy(s,i*6+1,5))
  c1:=char(int(sn/256))
  c2:=char(sn-c1*256)
  //c1+c2就是‘中‘
end老汉不会认真写passcal，看懂算法就行了，：）
  

Answer 5

for i:=0 to length(s)/6

Answer 6

在VB6里有一对函数，ascw()和chrw()
label1.Caption = ChrW(20013) & ChrW(22269)
label1.Caption = AscW("中") & AscW("国")
试试是不是能满足你的要求？？

Answer 7

Scripting好的，，，明天就有分了，，，，总共才几分呢呵呵

Answer 8

function WideAscToStr(mWideAsc: string): string;
var
  I: Integer;
  T: string;
begin
  Result := '';
  for I := Length(mWideAsc) downto 1 do
    if mWideAsc[I] = '#' then begin
      Result := WideChar(StrToIntDef(T, 0)) + Result;
      T := '';
    end else T := mWideAsc[I] + T;
end; { WideAscToStr }procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := WideAscToStr('#20013#22269');
end;

Answer 9

var pw_test:pWideChar;
begin
  pw_test:=new(pwidechar);
  pw_test^:=#20013;
  showmessage(widechartostring(pw_test));
end;
对每一组UNICODE进行处理即可得到每一个汉字。
我已经在NT4+D5测试通过！

Answer 10

procedure ObjectResourceToText(Input, Output: TStream);
procedure ObjectBinaryToText(Input, Output: TStream);
procedure ObjectTextToBinary(Input, Output: TStream);
如果要得到dfm的内容，可以用一下这几个函数。
帮助中带有例子

Answer 11

可以用TUMURL组件，试试/不知道行不行/