Markierte Checklistboxeinträge speichern

[Luckie]

Ach ja.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  F: TextFile;
begin
  AssignFile(F, 'x:\test.txt');
{$I-}
  Rewrite(f);
  if IOResult = 0 then
  begin
    for i := 0 to CheckListBox1.Items.Count - 1 do
    begin
      if CheckListBox1.Checked[i] then
        writeln(F, CheckListbox1.Items.Strings[i]);
    end;
    CloseFile(F);
  end
{$I+}
  else
    RaiseLastOSError;
end;