autom. Erweiterung beim Savedialog...

[Störtebeker]

meinst du so:

Delphi-Quellcode:

procedure TForm2.Speichern1Click(Sender: TObject);
begin
if SaveDialog1. Execute then
SynEdit1.Lines.SaveToFile(SaveDialog1.FileName);
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;