用汉化工具打开exe文件,出现Caption = #20445#23384这个#后面的数字是什么编码,我怎么能知道他代表的汉字或英文? object Button1: TButton Left = 272 Top = 144 Width = 75 Height = 25 Caption = #20445#23384 //这个是代表BUTTON1的按钮名 TabOrder = 01、这个是什么编码?2、我想实现把#20445#23384转换成他所代表的文字。 谢谢。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 implementation{$R *.dfm}function UnicodeToAnsi(const s: String): String;var i,len,j:Integer; t:String;begin Result:=''; len:=Length(s); i:=1; while i<=len do begin t:=Copy(s,i,4); j:=StrToInt('$'+t); t:=widechar(j); Result:=Result+t; i:=i+4; end;end;procedure TForm1.Button3Click(Sender: TObject);var List:TStringList; Src,Dst:string;begin Src := '20445'; Dst :=UnicodeToAnsi(IntToHex(StrToInt(Src),2)); ShowMessage(Dst); end;//20445 保,23384 存 Delphi的窗体制度化Unicode,所以需要把用户输入的字符编成Unicode字符,这个#????的就是Unicode字符。比较好的办法是拷贝到窗体上看看。 保存时候报错 数值传递 数据库备份 玩过上万条记录的请进!!! 我这样做为何不行? 使WebBrowser进入了编辑后,如何添加表格呢,请帮忙 屏幕刷新时闪烁的问题,在线守候 Ado + mySql 中出现的问题 POST网站 返回的却是网站正在刷新 而网站刷新后才是我想要得到的信息 这怎么办啊?求高手指点下 数据导出 delphi 是不是不支持sql2000中的varchar型字段呀,急!在线等 如何获取window.alert的内容?
var
i,len,j:Integer;
t:String;
begin
Result:='';
len:=Length(s);
i:=1;
while i<=len do begin
t:=Copy(s,i,4);
j:=StrToInt('$'+t);
t:=widechar(j);
Result:=Result+t;
i:=i+4;
end;
end;procedure TForm1.Button3Click(Sender: TObject);
var
List:TStringList;
Src,Dst:string;
begin
Src := '20445';
Dst :=UnicodeToAnsi(IntToHex(StrToInt(Src),2));
ShowMessage(Dst);
end;
//20445 保,23384 存