Hi,
Delphi-Quellcode:
procedure TForm1.speichernunter1Click(Sender: TObject);
begin
SaveDialog1.FileEditStyle := fsComboBox;
if SaveDialog1.Execute then
RichEdit1.lines.savetofile(SaveDialog1.FileName);
end;
Delphi-Quellcode:
procedure TForm1.speichern1Click(Sender: TObject);
begin
try
if SaveDialog1.FileName <> '' then RichEdit1.lines.savetofile(SaveDialog1.FileName);
except
ShowMessage ('Fehler beim Speichern der Datei!');
end;
end;
Ich möchte einfach dafür sorgen, dass es kein 'speichern unter ...' mehr gibt, indem ich alles in 'speichern' packe. Wenn eine Datei schon exestiert, wird einfach normal mit dem oben stehenden Code gespeichert (speichern1Click), wenn sie allerdings noch nicht exestiert wird eine erstellt, wie macht man das?