如何实现GB到Unicode的转换呢

Question

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

Answer 1

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

Answer 2

在大富翁找到答案了，以下一段代码
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;