autom. Erweiterung beim Savedialog...

[DeddyH]

So erscheint mir das logischer:

Delphi-Quellcode:

procedure TForm2.Speichern1Click(Sender: TObject);
var Dateiname: string;
begin
  if SaveDialog1. Execute then
  begin
    if ExtractFileExt(SaveDialog1.FileName) = '' then
      case SaveDialog1.FilterIndex of
        1: DateiName := ChangeFileExt(SaveDialog1.FileName,'.rtf');
        2: DateiName := ChangeFileExt(SaveDialog1.FileName,'.txt');
        3: DateiName := ChangeFileExt(SaveDialog1.FileName,'.html');
        4: DateiName := ChangeFileExt(SaveDialog1.FileName,'.htm');
      end
    else
      Dateiname := SaveDialog1.FileName;
    SynEdit1.Lines.SaveToFile(Dateiname);
  end;
end;