+ -
当前位置:首页 → 问答吧 → INI文件内容能不能HINT显示出来

INI文件内容能不能HINT显示出来

时间:2011-08-07

来源:互联网

我在PANEL里面设置了30个IMAGE,命名是IMAGE1-IMAGE30,程序下有一个INI文件,里面的格式是:
[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

可以將INI文件讀出生成一個字符串,然後賦給IMAGE的HINT。如果用一個事件,可以根據INI中信息與IMAGE對應起來。

作者: Oraclers   发布时间: 2011-08-07

我就是想用一段代码将所有的IMAGE全部设置好,IMAGE后面的数字是对应的 不想一个IMAGE写一段 拜托给个简单的代码

作者: nippycn   发布时间: 2011-08-07

不好意思 前面的INI文件有错误 第二段应该是
[image2]
name=编号2
active=0
lt=12
weight=2.7
number=12

作者: nippycn   发布时间: 2011-08-07

先把INI的内容读到内存中写入就好了。

作者: rainychan2009   发布时间: 2011-08-07

var 
  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

热门下载

更多