Frage zu SaveDialog

[DeddyH]

Nochmal das angesprochene Prinzip:

Delphi-Quellcode:

type
  TMyForm = class(TForm)
  ...
  private
    FFilename: TFilename;
  ...
  end;

...

procedure TMyForm.FormCreate(Sender: TObject);
begin
  FFilename := '';
end;

procedure TMyForm.Datei_oeffnen;
begin
  if OpenDialog.Execute then
    FFilename := OpenDialog.Filename;
end;

procedure TMyForm.Datei_speichern;
begin
  if FFilename = '' then
    begin
      if SaveDialog.Execute then
        FFilename := SaveDialog.Filename;
    end;
  if FFilename <> '' then
    Speichern(FFilename); //z.B. TStrings.SaveToFile
end;