Delphi World - Загрузить или сохранить значения TCheckListbox в INI файл
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Загрузить или сохранить значения TCheckListbox в INI файл

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

uses inifiles;

 {....}

 var
   i: Integer;
   ini: TIniFile;

 { 
  This tip saves all items with the checked/unchecked states 
  to an ini file. 

  Dieser Tip speichert alle Items mit dem checked/unchecked Zustand 
  in eine INI Datei. 
}


   //Save 

procedure TForm1.Button1Click(Sender: TObject);
 begin
   ini := TIniFile.Create('checklistbox.ini');
   try
     for i := 0 to Checklistbox1.Items.Count - 1 do
       ini.WriteBool('items', Checklistbox1.Items[i], Checklistbox1.Checked[i]);
   finally
     ini.Free;
   end;
 end;


 //Load 

procedure TForm1.Button2Click(Sender: TObject);
 begin
   ini := TIniFile.Create('checklistbox.ini');
   try
     ini.ReadSection('items', Checklistbox1.Items);
     for i := 0 to Checklistbox1.Items.Count - 1 do
       CheckListbox1.Checked[i] := ini.ReadBool('items', Checklistbox1.Items[i], False);
   finally
     ini.Free;
   end;
 end;
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования