Filter im SaveDialog ansprechen

[Grolle]

Hi!
Habe es jetzt so gemacht. Allerdings speichert das Prog die Datei jetzt ganz ohne Endung?

Delphi-Quellcode:

procedure TForm2.Speichernals1Click(Sender: TObject);  // Datei|Speichern als
begin
  SaveDialog1.FileName := pfad;
  if SaveDialog1.Execute then
  begin
    Pfad := SaveDialog1.FileName;
    Caption := ExtractFileName(pfad);
    case SaveDialog1.FilterIndex of
     1 : begin
           ChangeFileExt(SaveDialog1.FileName,'.txt');
           Speichern1Click(Sender)
         end;
     2 : ..................

Hilfeeeeeeeeeeee