Wenn als diese Endung Speichern dann

[MiniKeks]

Delphi-Quellcode:

procedure TMainForm.AOeffnenExecute(Sender: TObject);
begin
If Opendialog1.Execute then
  begin
    if FileExists(OpenDialog1.Filename) then
    begin
      Richedit1.Lines.LoadfromFile(OpenDialog1.Filename);
    end;
  end;
end;

procedure TMainForm.AspeichernuExecute(Sender: TObject);
begin
if SaveDialog1.Execute then
  begin
    if SaveDialog1.Filename<>'' then     // ist Dateiname angegeben?
    begin
      Richedit1.Lines.SavetoFile(SaveDialog1.Filename);
      OpenDialog1.Filename:='';
    end;
  end;