Изменить расширение файла
При сохранении файла пользователь может ввести имя файла с неправильным разрешением или вообще без него. В этом случае удобно воспользоваться функцией ChangeFileExt. Она сменит расширение файла на нужное, а если его не было, то добавит нужное. (На форму необходимо добавить компонент SaveDialog находится он на вкладке Dialogs) procedure TForm1.Button1Click(Sender: TObject);begin
if SaveDialog1.Execute = false then Exit;
SaveDialog1.FileName := ChangeFileExt(
SaveDialog1.FileName, '.txt');
Form1.Caption := SaveDialog1.FileName;
end;
