Delphi Unicode转中文

作者: 傻猫    分类: 搞软件     发布时间: 02-03 21:11    浏览次数: 5179     无留言

function UniCode2GB(S : String):String;
Var I: Integer;
begin
I := Length(S);
while I >=4 do begin
try
Result :=WideChar(StrToInt('$'+S[I-3]+S[I-2]+S[I-1]+S[I]))+ Result;
except end;
I := I - 4;
end;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
    ShowMessage(UniCode2GB('\u51e4')+UniCode2GB('\u51f0'));
    //显示  凤凰
end;

添加新评论