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.