Delphi中Unicode转中文

function UnicodeToChinese(inputstr: string): string;var    i: Integer;    index: Integer;    temp, top, last: string;begin    index := 1;    while index >= 0 do    begin        index := Pos('\u', inputstr) - 1;        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;