50分：怎样对汉字进行Unicode编码，并把编码后的结果以uxxxx的形式在EDIT筐中显示出来？？

Question

怎样对汉字进行Unicode编码，并把编码后的结果以uxxxx的形式在EDIT筐中显示出来？？我非常急啊！小弟在次感些大家了！24小时等候！！

Answer 1

function EncodeWideString(Value:WideString):String;
//encode the widestring to saveable string
//2003.03.04
var
  I:Integer;
begin
  Result:='';
  for I:=1 to Length(Value) do begin
    Result:=Result+IntToHex(WORD(Value[I]) shr 8,2);
    Result:=Result+IntToHex(WORD(Value[I]) and $00ff,2);
  end;
end;function DecodeWideString(Value:String):WideString;
//decode the string to widestring
//2003.03.04
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;