\u88c2\u9699\uff08\u7f8e\u56fd\uff09
对应
裂隙(美国)请问上面是什么编码方式,怎么样进行相互转换?
对应
裂隙(美国)请问上面是什么编码方式,怎么样进行相互转换?
解决方案 »
- 我用FastReport作打印,尺寸真难调啊!!!
- 100分求购控件Fastreport3.0
- sql server文件操作的问题,高手帮忙!!!
- 如何在程序中实现添加输入法?(100分)
- 有关数据库组件的问题,高分求教
- 怎样保存邮件?
- 关于delphi自带的installshied制作安装程序的问题:
- 控件可以显示Tiff格式的图片??????急
- 我的ActiveForm制作的数据库网页在本机上能看,在局域上的其他机器上却看不到,我可以出300元人民币解决这个问题,成交地广州决不失言
- delphi编写的软件如何在局域网内自动更新?
- 谁能帮我解读这句代码
- 对端口直接打印(LPT1、USB001、USB002)
以内存流方式读取并显示在MEMO1控件中的
显示出来的就是 裂隙(美国)
使用widestring来处理,一次读取3个字符,剔除掉第一个"\"就行了
另外如果是使用ansi文本存储的\u88c2那就不能一次读取两个字节,需要先读入一行用\拆分,然后把16进字符串转换后才能使用
Function U(s:string):pchar;
var
aArr: Array [1..5000] of char;
str:Tstringlist;
i:Integer;
begin
s:=StringReplace(s,'\u','*',[rfReplaceAll]);
str:=Tstringlist.Create;
str.Delimiter:='*';
str.DelimitedText:=s;
for i := 1 to str.Count - 1 do
begin
aArr[i]:=char(StrToInt('$'+str[i]));
end;
str.Free;
Result :=@aArr;
end;procedure TForm1.Button1Click(Sender:TObject);
begin ShowMessage(u('\u88c2\u9699\uff08\u7f8e\u56fd\uff09'));
end;
显示出来的就是 裂隙(美国)
支持。