TSaveDialog.DefaultExt hat keine Auswikrung?

[Angel4585]

Guten Tag! :)

Ich übersehe bestimmt mal wieder ein Flag, aber ich kann echt nix dazu finden.

Delphi-Quellcode:

FSaveDialog := TSaveDialog.Create(self);
FSaveDialog.Options:=[ofOverwritePrompt];
FSaveDialog.Filter:='Excel-Files (*.xls)|*.XLS';
FSaveDialog.DefaultExt:='xls';
if FSaveDialog.Execute then
 FFile:=FSaveDialog.FileName
FSaveDialog.Free;

Wenn ich diesen Code ausführe, und gebe als Dateiname "test" ein, bekomme ich die Meldung "test ist bereits vorhanden. Möchten Sie sie ersetzen?"
Auch nach dem Execute steht in Filename nur "test" drin.
Die in DefaultExt angegebene Datei-Endung wird nie benutzt.

Frage(n): Wieso? Muss ich ein Flag setzen, damit die Endung gesetzt wird? Welches Flag ist das? Oder stimmt etwas anderes nicht?

Edith schimpft:
Wie so oft habe ich kurz nachdem ich den Thread veröffentlicht habe, die Lösung gefunden.
Hier: http://www.delphipraxis.net/133815-s...zugefuegt.html

Einfach bei den Options das Flag "ofExtensionDifferent" hinzufügen und schon geht es :angel2: