function UnicodeToChinese(inputstr: string): string; var i: Integer; index: Integer; temp, top, last: string; begin index := ; do begin index := Pos(; then begin last := inputstr; Result := Result + last; Exit; end; top := Copy(inputstr, , index); //…