如何实现GB到Unicode的转换呢

[zenz]

一定要建立字典吗？

[tchaikov]

到本站
http://www.csdn.net/develop/resource.asp?ID=87
去下载。

[ab]

Use dictionary? NO!!!
API function:
MultiByteToWideChar(936, ....
See MSDN for help.

[zenz]

在大富翁找到答案了，以下一段代码
function GB2Unicode(GB:string):string;
var
s: string;
i, j, k: integer;
a: array [1..1000] of char;
begin
s:='';
StringToWideChar(GB, @(a[1]), 500);
i:=1;
while ((a[i]<>#0) or (a[i+1]<>#0)) do begin
j:=Integer(a[i]); k:=Integer(a[i+1]);
s:=s+Copy(Format('%X ',[k*$100+j+$10000]) ,2,4);
i:=i+2;
end;
Result:=s;
end;