AI摘要
文章提供了一个Delphi函数UniCode2GB,用于将Unicode编码的字符串转换为中文。函数通过遍历字符串,将每四个字符转换为一个中文字符,并将结果累加到Result变量中。文章还提供了一个示例,展示了如何使用该函数将Unicode编码的“凤”和“凰”转换为中文,并显示结果“凤凰”。
文章提供了一个
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;