问一个字符串变换问题～

Question

有一个函数如下：
Function MyUnicode(SMSG:string):String;
var
  st:String;
  i:integer;
  a:UCS4String;
  c:LongWord;
  MyCh:char;
begin
  a:=WideStringToUCS4String(SMSG);
  st:='';
  i:=0;
  while a[i]>0 do
    begin
      c:=a[i] mod 65536;
      mych:=char(c div 256);
      st:=st+mych;
      mych:=char(c mod 256);
      st:=st+mych;
      i:=i+1;
    end;
  Result:=st;
end;
调用该函数，输入“你好”，函数返回"O'Y}",现在我要问的是如何实现逆变换，即输入字符串为"O'Y}",函数返回“你好”，各位高手给个函数出来吧。

Answer 1

function ConvertUnicode(UCode: String): String;
var
  i: Integer;
  a:UCS4String;
  c: LongWord;
  MyCh: Char;
begin
  i := 1;
  setLength(a, Length(UCode) div 2 + 1);
  while(i <= Length(UCode))  do
  begin
    a[(i-1) div 2] := Ord(UCode[i]) * 256 + Ord(UCode[i + 1]);
    i := i + 2;
  end;
  a[(i-1) div 2] := 0;
  result :=  UCS4StringToWideString(a);
end;