Загрузить или сохранить значения TCheckListbox в INI файлDelphi , Файловая система , INI файлыЗагрузить или сохранить значения TCheckListbox в INI файл
Оформил: DeeCo 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; Статья Загрузить или сохранить значения TCheckListbox в INI файл раздела Файловая система INI файлы может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |