各位看看这个函数哪不对啊,为什么不能把十六进制的字符串转成汉字呢??
erduo 2003-10-17 12:28:10 function DecodeWideString(Value:String):wideString;
var
I:Integer;
begin
Result:='';
for I:=0 to (Length(Value) div 4)-1 do begin
Result:=Result+wchar(strtoint('$'+value[I*4+1]+value[I*4+2])shl 8+strtoint('$'+Value[I*4+3]+Value[I*4+4]) );
end;
end;