50分帮我把 Subject: =?GB2312?Q?wanghaiou=A3=AC=C4=FA=BA=C3=A3=A1?= 里面的汉子正常显示出来

50分帮我把 Subject: =?GB2312?Q?wanghaiou=A3=AC=C4=FA=BA=C3=A3=A1?= 里面的汉子正常显示出来 ( 积分: 50 )<br />50分帮我把 Subject: =?GB2312?Q?wanghaiou=A3=AC=C4=FA=BA=C3=A3=A1?= 里面的汉子正常显示出来

50分帮我把 Subject: =?GB2312?Q?wanghaiou=A3=AC=C4=FA=BA=C3=A3=A1?= 里面的汉子正常显示出来

，您好！

uses httpApp;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin

ShowMessage(HTTPDecode(StringReplace('wanghaiou=A3=AC=C4=FA=BA=C3=A3=A1' ,'=','%',[rfReplaceAll])) );
end;

wanghaiou，您好！

procedure TForm1.Button9Click(Sender: TObject);
begin
memo1.Lines.Add(WideStrToCh(edit8.Text));
end;
//机内码转为汉字
function WideStrToCh(S: String): string;
//
var
C,C1,C2: String;
SS: WideString;
i: Word;
begin
i := 1;
while i <= (Length(S) - 2)do
begin
C1 := Copy(S, i, 2);
C2 := Copy(S, i + 2, 2);
C := Chr(StrToInt('$' + C1)) + Chr(StrToInt('$' + C2));
SS := SS + C;
i := i + 4;
end;
Result := Trim(SS);
end;

多人接受答案了。