在读ini文件时,如果某个标签的值在不断变化怎么读取?

honey_001 2004-04-09 12:50:39
比如ini文件:
[ff]
ff=3
[tt]
t1=34
t2=13
t3=15
tt下的值会不断增加,就是ff等于几,t就有几个值,如ff=5,t就到t5,如何读取所有值?
...全文
66 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
xiaoqiang123 2004-04-09
  • 打赏
  • 举报
回复
同意楼上的
wnhoo 2004-04-09
  • 打赏
  • 举报
回复
procedure TForm1.Button1Click(Sender: TObject);
var
count,i:integer;
str:Tstringlist;
inifile:Tinifile;
begin
str:=Tstringlist.Create ;
inifile:=Tinifile.Create('c:\my.ini') ;
count:=inifile.ReadInteger('ff','ff',0);
for i:=1 to count do
str.Add(inifile.ReadString('tt','t'+IntToStr(i),''));

//for i:=0 to str.Count-1 do memo1.Lines.add(str[i]);
inifile.free;
str.free;
end;
Linux2001 2004-04-09
  • 打赏
  • 举报
回复
晕,声明一个TINIFile类,有专门的方法读取这些值超级简单!自己看看TINIFile类的说明就知道了
zblaoshu1979 2004-04-09
  • 打赏
  • 举报
回复
var
count:integer;
aa:array[100] of string;
count:=myinifile.readstring('ff','ff',3)
for i:=0 to count-1 do
begin
aa[i]:='t'+IntToStr(i+1)
end;
for low(aa) to high(aa) do
myinifile.readstring('tt',a[i],3)

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧