zu umständliches Speichern?

[Sharky]

Hai moperswings,

meinst Du etwas in dieser Art?

Delphi-Quellcode:

procedure TDemoForm.btn_saveClick(Sender: TObject);
var
  filename: string;
  f: Textfile;
begin
  if (SaveDialog1.Execute) then
  begin
    filename := SaveDialog1.FileName;
    AssignFile(f, filename);
    // hier der restliche Code;
  end;
end;