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;