Prozeduren und Methoden mit Parameter

[Aviator]

Hallo Finki,

du schreibst in deinem Code folgendes:

Delphi-Quellcode:

procedure TForm1.Save(Sender: TObject);
var
  textb : boolean;
  texts : string;
  long, long01, i : integer;
begin
  SaveDialog.Execute;   // Hier führst du den SaveDialog bereits das erste Mal aus
  case SaveDialog.FilterIndex of

    2: begin
        if SaveDialog.Execute then   // Und hier schon wieder
        begin
          [...]
        end;
       end;

Das was du vor hast kannst du auch anders umsetzen. In etwa so (ungetestet):

Delphi-Quellcode:

procedure Save;
var
  SaveDlg : TSaveDialog;
begin
  SaveDlg := TSaveDialog.Create(Self);
  SaveDlg.Filter := '*.doc | Word 97-2003 Format | *.docx | Word Dokument';
  
  if SaveDlg.Execute then begin
    Memo1.Lines.SaveToFile(SaveDlg.Filename);
    // Oder auch weitere Aktionen ausführen
  end;

  SaveDlg.Free;
end;

In etwa so könnte man das machen. Habe gerade kein Delphi zur Verfügung, um das Ganze noch vollständig zu testen. Aber ich bin mir sicher, dass du daraus etwas zusammenbauen kannst.