Hi smart,
normalerweise interessiert dich der Index gar nicht, da er vom common dialog berücksichtigt wird - die Endung wird korrekt beigesteuert, falls du sie bei der Eingabe des Dateinamens vergessen hast:
Delphi-Quellcode:
procedure TDemoForm.SaveButtonClick(Sender: TObject);
begin
with SaveDialog do begin
FilterIndex := 1;
if Execute then
ShowMessage(Format('(%d) %s', [FilterIndex, FileName]));
end;
end;
In deinem Beispiel ist die FilterIndex-Abfrage eigentlich überflüssig...
Grüße vom marabu