[Sosiska]

мне рассказали что для того чтобы реализовать запись рабочего кода можно использовать этот формат.Как?

[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;

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

[AXS]

Ini файлы - это пережиток прошлого, оставшийся со времен 16 битной ОС, оставленный ради совместимости. Лучше юзать реестр. Вот пример:

Код:

uses
  Registry;

...

var
  Reg: TRegIniFile;
begin
  Reg:=TRegIniFile.Create('Software');
  Reg.OpenKey('MyProgramms', true);
  Form1.Caption:=Reg.ReadString('TestProg','Caption','DefaultCaption');
  Reg.WriteInteger('TestProg','Digit',SpinEdit1.Value);
end;
...

Что тут происходит? Заголовку формы присваевается строковое значение хранящееся в ключе HKEY_CURRENT_USER\Software\MyProgramms\TestProg\Ca ption. Если ключа нет, то присваевается 'DefaultCaption'. А в ключ HKEY_CURRENT_USER\Software\MyProgramms\TestProg\Di git целочисленного типа заносится значение SpinEdit'a.
В общем ищи инфу по этой теме. Если что скину справочный материал.

[Phedor]

Ага. А после удаления программы как всегда реестр зас..н!
Я же предпочитаю использовать INI-файл.
Кстати, через использование INI, можно обращаться и к реестру, если использовать WinAPI-функции, что работает намного быстрее.

[AXS]

Унинсталер писать полчаса... и все будут рады...

[Sosiska]

похоже не в ту степь мне надо всего лишь записать рабочий код проги для последующего его использования и всё а причём тут реестр я не пойму