open-/savedialog festgelegte datei laden

[himitsu]

Wie schon gesagt:

Der Open- und SaveDialog ist dieses Dateiauswahlfenster.
Wenn du dieses Fenster also nicht möchtest, dann darfst du auch diese Komponenten nicht verwenden/aufrufen.

Delphi-Quellcode:

procedure TForm1.Save1Click(Sender: TObject);
begin
  if SaveDialog1.Filename = '' then
  begin
    if SaveDialog1.Execute then
      Memo1.Lines.SaveToFile(SaveDialog1.Filename);
  end
  else
    Memo1.Lines.SaveToFile(SaveDialog1.Filename);
end;

// in Kurz
procedure TForm1.Save1Click(Sender: TObject);
begin
  if (SaveDialog1.Filename <> '') or SaveDialog1.Execute then
    Memo1.Lines.SaveToFile(SaveDialog1.Filename);
end;

Vorschlag:

Delphi-Quellcode:

// Speichern
procedure TForm1.Save1Click(Sender: TObject);
begin
  if ((SaveDialog1.Filename <> '') and FileExists(SaveDialog1.Filename))
      or SaveDialog1.Execute then
    Memo1.Lines.SaveToFile(SaveDialog1.Filename);
end;

// Speichern als ...
procedure TForm1.SaveAs1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    Memo1.Lines.SaveToFile(SaveDialog1.Filename);
end;