Delphi中Unicode转中文

Posted 2020-11-13 westsoft

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;  

https://blog.csdn.net/u012942868/article/details/52882736