[Sosiska]

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

[Ozerich]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

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 битной ОС, оставленный ради совместимости. Лучше юзать реестр. Вот пример:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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]

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