这个问题很难吗?真的就没有人会了吗?

THE_ROCK 2002-11-30 02:21:50

有一个PageControl1,新建有不定数目的页面,每个页面上都有一个LIstview,样式设为vsReport,再建立两个段,用来显示,Name和URL(PageControl的页标签的Caption为分类名).然后写入ini文件,写后的格式要如下:
[News]
新华=http://www.newhua.com
news.com=http://www.news.com
[music]
mp3.com=http://www.mp3.com
天府音乐网=http://music.tyfo.com
极限音乐=http://www.chinamp3.com
[.....]
......=......
......=......

各项条目数目不确定有多少!

...全文

48 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

THE_ROCK 2002-12-02

打赏
举报

stanely 2002-12-01

打赏
举报

uses
inifiles;

function getlistview(pagecontrol:tpagecontrol;index:integer):tlistview;
var
i:integer;
begin
result:=nil;
for i:=0 to componentcount-1 do
begin
if (components[i] is tlistview) and (tlistview(components[i]).tag=pagecontrol.pages[index].handle)then{既然你的pagecontrol页数不一定，那么你的listview一定是动态跟随tabsheet一起创建的，记得创建的时候设置listview.tag:=tabsheet.handle就可以了，这样才能实现找到相应的listview}
begin
result:=components[i] ;
break;
end;
end;
end;
procedure writetofile(filename:string;pagecontrol:tpagecontrol);
var
ini:tinifile;
listview:tlistview;
begin
ini:=tinifile.create(filename);

for i:=0 to pagecontrol.pagecount-1 do
begin
listview:=getlistview(pagecontrol,i);
if listview=nil then continue;
for j:=0 to listview.items.count-1 do
begin
ini.writestring(pagecontrol.pages[i].caption,listview.items.item[j].caption,listview.items.item[j].subitems.strings[0]);
end;
end;
ini.updatefile;
ini.free;
end;

THE_ROCK 2002-12-01