[Ozerich]

Лень писать о функциях я выложу два примера

Код:

procedure Tform1.read;
var
count:integer;
i:integer;
str:string;
ini:Tinifile;
begin
ini:=Tinifile.Create(extractfilepath(application.ExeName)+'config.ini');
count:=ini.ReadInteger('Filters','Count',0);
for i:=1 to count do
addfilter(ini.ReadString('Filters','F'+inttostr(i-1),''),ini.ReadString('Filters','D'+inttostr(i-1),''),listview2);

count:=ini.ReadInteger('Exclusion','Count',0);
for i:=1 to count do
addExl(ini.ReadString('Exclusion','E'+inttostr(i-1),''),ini.ReadString('Exclusion','D'+inttostr(i-1),''),listview3);

count:=ini.ReadInteger('PATH','Count',0);

for i:=1 to count do begin
str:=ini.ReadString('PATH','P'+inttostr(i-1),'');

checklistbox1.items.add(str);
checklistbox1.checked[checklistbox1.count-1]:=true;


end;
ini.Free;
end;

procedure Tform1.save;
var
i:integer;
ini:Tinifile;
begin
deletefile(extractfilepath(application.ExeName)+'Config.ini');
ini:=Tinifile.Create(extractfilepath(application.ExeName)+'Config.ini');
with ini do begin
writeInteger('Filters','Count',listview2.Items.Count);
for i:=0 to listview2.Items.Count-1 do begin
writestring('Filters','F'+inttostr(i),listview2.Items[i].Caption);
writestring('Filters','D'+inttostr(i),listview2.Items[i].SubItems.Strings[1]);
end;
writeInteger('Exclusion','Count',listview3.Items.Count);
for i:=0 to listview3.Items.Count-1 do begin
writestring('Exclusion','E'+inttostr(i),listview3.Items[i].Caption);
application.ProcessMessages;
writestring('Exclusion','D'+inttostr(i),listview3.Items[i].SubItems.Strings[0]);
end;
writeinteger('PATH','Count',checklistbox1.Count-1-lastindex);
for i:=lastindex+1 to checklistbox1.Count-1 do begin
writestring('PATH','P'+inttostr(i-lastindex-1),checklistbox1.Items[i]);
end;
Free
end;
end;

Что не понятно спрашивай