Hi!
Das müsste etwa so gehen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
if pos('.txt', SaveDialog1.FileName)> Length(SaveDialog1.FileName) - 4 then
begin
SaveDialog1.FileName:= SaveDialog1.FileName + '.txt';
end;
end;
end;
-> nicht getestet
[EDIT]Da musst du dann halt noch unterscheiden, welches Format ausgewählt ist.[/EDIT]
