用文本打开dfm文件后.怎么转换比如caption的#19978#28023类型? 用文本打开dfm文件后.显示caption为#19978#28023类型,怎么把这些显示为汉字啊? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 用Delphi编辑器打开,右键点击窗体,选择“View as text”功能 我知道Delphi编辑器打开,右键点击窗体可以显示出来,但不要这样弄,前提是没有Delphi编辑器. 不能用Delphi编辑器,这是IQ题吗?打开QQ,按着Alt键,在聊天对话框里用小键盘输入数字,中文就出来啦^_^ 理论上来说,没有什么实现不了的。刚写了个小函数来实现转换类似#19978的字符串为汉字:function CrnTransDfmChar(strCaption: String): String;var strRet: String; ss: TStringStream; ms: TMemoryStream; cmp: TComponent;begin RegisterClass(TButton); strRet := ' object btnCrnTest: TButton' + #13#10 + ' Left = 64' + #13#10 + ' Top = 112' + #13#10 + ' Width = 75' + #13#10 + ' Height = 25' + #13#10 + ' Caption = ' + strCaption + #13#10 + ' TabOrder = 2' + #13#10 + ' end'; ss := TStringStream.Create(strRet); try ms := TMemoryStream.Create; try ObjectTextToBinary(ss, ms); ms.Seek(0, soFromBeginning); cmp := ms.ReadComponent(nil); finally ms.Free; end; finally ss.Free; end; if cmp <> nil then Result := (cmp as TButton).Caption else Result := '';end;// 挖卡卡,现在试验一下procedure TForm1.Button1Click(Sender: TObject);begin ShowMessage(CrnTransDfmChar('#19978#28023'));end;运行后可以看到,原来#19978#28023就是“上海”,呵呵。 ccrun(老妖)(www.ccrun.com)佩服! 创建的dll文件里不支持控件拖放 尼康相机开发包求助 bde+paraoxd怎么备份数据库 对我来说是大问题!!! 奇怪的MDI子窗体不能创建的问题 无法绑定由多个部分组成的标识符bsskinedit.text 我怎么把他们一一显示出来在listbox里?代码写出来! Delphi中如何实现半透明Panel DELPHI中怎么在图片上画直线和写数字,之后不破坏原有的图片,再存入数据库.还得能打印. batchmove如何使用? 怎么在SQL SERVER保存时间为HH:MM:SS 前面不要有1899-12-30 帮忙看看这短代码,打开cmd.exe,定位在文件目录册,并写入文件名称
var
strRet: String;
ss: TStringStream;
ms: TMemoryStream;
cmp: TComponent;
begin
RegisterClass(TButton); strRet := ' object btnCrnTest: TButton' + #13#10
+ ' Left = 64' + #13#10
+ ' Top = 112' + #13#10
+ ' Width = 75' + #13#10
+ ' Height = 25' + #13#10
+ ' Caption = ' + strCaption + #13#10
+ ' TabOrder = 2' + #13#10
+ ' end'; ss := TStringStream.Create(strRet);
try
ms := TMemoryStream.Create;
try
ObjectTextToBinary(ss, ms);
ms.Seek(0, soFromBeginning);
cmp := ms.ReadComponent(nil);
finally
ms.Free;
end;
finally
ss.Free;
end;
if cmp <> nil then
Result := (cmp as TButton).Caption
else
Result := '';
end;// 挖卡卡,现在试验一下
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(CrnTransDfmChar('#19978#28023'));
end;运行后可以看到,原来#19978#28023就是“上海”,呵呵。
佩服!