Speichern ohne Speichern unter!

[Nils_13]

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?

[Ultimator]

FileExists() ;-)

[Daniel]

Nils,

bitte formuliere Dein Problem noch mal in Ruhe und in ganzen Sätzen. Dann haben wir auch eine Chance, Dir zu helfen.

[Nils_13]

Mit

Delphi-Quellcode:

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?

[Aenogym]

hi,

ja:

Delphi-Quellcode:

if TSaveDialog.execute then

wenn der user auf abbrechen klickt, gibt die funktion false zurück und alles in dem if wird nicht ausgeführt.

also alles, was mit dem speichern zu tun hat, darein packen.

Aenogym

[Die Muhkuh]

Zitat:

Zitat von Nils_13

Mit

Delphi-Quellcode:

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?

Hi Nils,

da ist noch ein kleiner Fehler drin.

Delphi-Quellcode:

if FileExists(save.filename) then
  edit.lines.savetofile(save.Filename)
else
begin
  save.Execute;
  edit.Lines.SaveToFile(save.filename);
end;

Ohne das begin..end nach dem Else wird edit.lines.savetofile(save.filename) Immer ausgeführt auch wenn bei der If true rauskommt!

[sECuRE]

Hi,

darf ich noch kurz 'ne Kleinigkeit anmerken? ;)

Delphi-Quellcode:

if FileExists(save.filename) then
 edit.lines.savetofile(save.Filename)
else begin
 if (save.Execute) then
  edit.Lines.SaveToFile(save.filename);
end;

Ansonsten wird auch gespeichert, wenn man auf Abbrechen klickt ;)

cu

[Nils_13]

thx!