Dateierweiterung erzwingen [Problem gelöst]

[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;