Markierte Checklistboxeinträge speichern

[sui]

Ok, habs so gemacht:

Delphi-Quellcode:

procedure TForm1.BitBtn7Click(Sender: TObject);
var
  i: Integer;
  F: TextFile;
  Pfad: string;
begin
if savedialog1.execute then begin
pfad := extractfilename(savedialog1.FileName);
  AssignFile(F, Pfad + '.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   ;
    end;      end;
end.