INI文件内容能不能HINT显示出来
时间:2011-08-07
来源:互联网
[image1]
name=编号
active=1
lt=52
weight=3.4
number=8
[image1]
name=编号2
active=0
lt=12
weight=2.7
number=12
我想在FORMCREATE事件里写段代码:设置IMAGE1的HINT信息就是这个文件里面的信息.
比如:IMAGE1的HINT是 NAME编号 LT52 WEIGHT3.4 NUMBER8.
以前记得多个按钮可以共用一个事件,可以区分某个按钮的命名,不知道这个能不能适用.
作者: nippycn 发布时间: 2011-08-07
作者: Oraclers 发布时间: 2011-08-07
作者: nippycn 发布时间: 2011-08-07
[image2]
name=编号2
active=0
lt=12
weight=2.7
number=12
作者: nippycn 发布时间: 2011-08-07
作者: rainychan2009 发布时间: 2011-08-07
i: integer;
ini: TIniFile;
res: string;
begin
ini := TIniFile.Create('c:\MyIni.ini');
try
for i:=0 to ComponentCount -1 do
begin
if Components[i] is TImage then
(Components[i] as TImage).HINT:=
'NAME'+ini.ReadString((Components[i] as TImage).Name, 'Name', '')+' '+
'LT'+ini.ReadString((Components[i] as TImage).Name, 'lt', '')+' '+
'WEIGHT'+ini.ReadString((Components[i] as TImage).Name, 'weight', '')+' '+
'NUMBER'+ini.ReadString((Components[i] as TImage).Name, 'number', '')+' '+
end,
MessageDlg('Value of Section: ' + res, mtInformation, [mbOK], 0);
finally
ini.Free;
end;
end;
作者: npkaida 发布时间: 2011-08-07
Delphi(Pascal) code
var i: integer; ini: TIniFile; begin ini := TIniFile.Create('c:\MyIni.ini'); try for i:=0 to ComponentCount -1 do begin if Components[i] is TImage then (Components[i] as TImage).HINT:= 'NAME'+ini.ReadString((Components[i] as TImage).Name, 'Name', '')+' '+ 'LT'+ini.ReadString((Components[i] as TImage).Name, 'lt', '')+' '+ 'WEIGHT'+ini.ReadString((Components[i] as TImage).Name, 'weight', '')+' '+ 'NUMBER'+ini.ReadString((Components[i] as TImage).Name, 'number', '')+' '+ end; finally ini.Free; end; end;
作者: npkaida 发布时间: 2011-08-07
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28