大家帮忙把这个C++Builder的函数转换成delphi的了！！在线等待!!! (100分)

String DecodeChinese(String InputStr)
{
wchar_t Buf[300];
for(int i=0;i<InputStr.Length();i=i+4)
{
Buf[i/4]=StrToInt("0x"+InputStr.SubString(i+1,4));
}
Buf[InputStr.Length()/4]=0;
return WideCharToString(Buf);
}

没有实验, 直接改的...可能有错的地方...

function DecodeChinese(const InputStr: String): WideString;
var
Buf : array[0..299] of WideChar;
I : Integer;
begin
I := 0;
while I < Length(InputStr) do
begin
Buf[I div 4] := WideChar(StrToInt('$'+Copy(InputStr, i+1, 4)));
Inc(I, 4);
end;
Buf[Length(InputStr) div 4] := WideChar(0);

Result := Buf;
end;

ok!

接受答案了.