一个ini中比较困难的问题(50分)

  • 主题发起人 主题发起人 cf83325
  • 开始时间 开始时间
C

cf83325

Unregistered / Unconfirmed
GUEST, unregistred user!
最近实现这样一个功能,在pagecontrol上动态生成tabsheet,和动态groupbox的问题

[软件分类名称]
网络工具=
系统工具=
输入法=

//读取 软件分类名称,生成相应的tabsheet
procedure TMyComponent.Softclassify;
var
FilePath : string;
strlist ; Tstringlist;
IniFile : TIniFile;
begin
try
strList := TStringList.Create;
FilePath := ExtractFilePath(ParamStr(0)) + 'Set_Infor.ini';
IniFile := TIniFile.Create(FilePath);
IniFile.ReadSection('分类名称' , strList);
finally
IniFile.Free;
end;
end;


[网络工具]
Soft1_Name=MSN
Soft1_Install=”network/msn.exe /slient”
Soft1_Pic=Picture/aa.jpg
Soft1_desc="MSN是常用的聊天工具之一,由微软出品…"
Soft1_URL=http://www.msn.com
Soft1_mode=2,3

Soft2_Name ….
对如软件类别,用户手工在ini里面添加Soft2_Name , soft3_Name..以致更多软件名称.生成相应的groupbox很不好读。。好心的人给个提示。。。最后有个几行代码提示,思路也可以

[系统工具]
好友"系统工具" , 聊天工具,动态添加,动态生成相应的Tabsheet
 
最好是按这样
[软件个数]
个数=11

[软件1]
软件1名称=xxxxx

读的时候先读固定的软件个数
再循环给 section的名字去读不就解决了,

你的问题是没有固定的个数 ggg
 
好像XML是解决这个问题的方法,我也不懂,期待高手来解答。
学习。
 
lz 不是2个循环吗 还是我没明白lz的意思
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
548
import
I
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部