delphi에서 유니버설 한자 변환 함수

최근에 이 함수를 사용했는데 어쩔 수 없이delphi가 자체로 가지고 있는 것을 찾지 못했다. 인터넷에서 유사한 것을 찾았는데 이미 만들어진 것이 없다. 내가 필요로 하는 것은'\u4f00'이라는 형식을 지원하는 것이다. 즉, 앞에 표준적인'\u'를 가지고 개조한 것이다.
다음은 디코딩 함수입니다.
필요한 사람 있으면 편하죠 저도 필요해요^ ^

 /// <summary>

    /// // Unicode    ，        unicode  ，   unicode     

    ///             \u4e00          ，  \u    

    ///  code by     2015-2-11

    /// </summary>

 function TMyEncode.UnicodeToChinese(inputstr:string):string;

var

i:Integer;

index:Integer;

temp,top,last:string;

begin

   index:=1;

   while index>=0 do

   begin

   index:= inputstr.IndexOf('\u');

 if index<0 then

begin

last:= inputstr;

   Result:= Result+ last;

   Exit;

end;

   top:= Copy(inputstr,1,index); //            unic      ，   

   temp:= Copy(inputstr,index+1,6);//    ，   \u    , \u4e3f

   Delete(temp,1,2);

   Delete(inputstr,1,index+6);

  result:= Result+ top+ WideChar( StrToInt('$'+ temp)) ;

   end;

end;