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