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