Dateierweiterung erzwingen [Problem gelöst]

[synex]

Hi Leute!

wie kann ich bei einem SaveDialog eine Dateierweiterung erzwingen?
Ich habe als Filter schon *.txt eingesetzt, aber wenn man als Dateiname nur z.B. abc eingibt, speichert er die Datei unter abc und nicht abc.txt
Ist bestimmt ne kleine Einstellung, aber ich kenn sie leider nicht.

MfG synex

[Luckie]

Kuck mal im Objektinspektor. wenn dior was unbeaknnt vor kommt, Cursor rein und F1 drücken.

[Alexander]

Sonst kuck doch mit ExtractFileExt ob's eine hat und wenn nicht dann, fügste eine hinzu...

[Christian Seehase]

Moin Synex,

schau Dir doch mal die Eigenschaft DefaultExt an.

[synex]

Also ich habe es so gemacht:

Delphi-Quellcode:

try
extractfileext(savedialog1.FileName)
except
savedialog1.filename:=savedialog1.FileName+'.txt';
end;

Aber es funktioniert nicht. Die Datei heißt trotzdem 'abc'.
Im Objektinspektor habe ich nichts entsprechendes gefunden.
Was mach ich falsch?

[synex]

Zitat von Christian Seehase:

Moin Synex,

schau Dir doch mal die Eigenschaft DefaultExt an.

Ach ich sebbel natürlich damit gehts!
Danke!

[Phoenix]

Zitat von synex:

Also ich habe es so gemacht:
[..]
Was mach ich falsch?

Ganz einfach: Du prüfst nicht nach, ob die Endung leer ist.

Delphi-Quellcode:

if extractfileext(savedialog1.FileName) <> '.txt' then
begin
   // hier dann die richtige Endung zuweisen
end;

[synex]

Danke Phoenix, aber ich machs jetzt durch DefaultExt.
mfg synex