学步园

{感谢 robin（xuebin418@163.com）提供}

//转换
function Str_Gb2UniCode(text: string): String; 
var 
  i,len: Integer;
  cur: Integer;
  t: String;
  ws: WideString;
begin
  Result := '';
  ws := text;
  len := Length(ws);
  i := 1;
  while i