Forum: Object-Pascal / Delphi-Language
Delphi
by Nils_13,
23. Dez 2004
Mit
if FileExists(save.filename) then
edit.lines.savetofile(save.Filename)
else
save.Execute;
edit.Lines.SaveToFile(save.filename);
läufts, thx!
Bloß wenn man auf Abbrechen klickt gibt es einen Fehler: "Datei kann nicht erstellt werden", kann man den umgehen?
Forum: Object-Pascal / Delphi-Language
Delphi
by Nils_13,
23. Dez 2004
Hi,
procedure TForm1.speichernunter1Click(Sender: TObject);
begin
SaveDialog1.FileEditStyle := fsComboBox;
if SaveDialog1.Execute then
RichEdit1.lines.savetofile(SaveDialog1.FileName);
end;
procedure TForm1.speichern1Click(Sender: TObject);
begin