|
|
В обычном OpenDialog есть свойство Options и подсвойство ofFileMustExist. Если его установить в true, то OpenDialog, если это нужно, будет сам выводить диалог: "Файл не найден. Убедитесь в правильности указания пути и имени файла".procedure TForm1.FormCreate(Sender: TObject);
begin
SaveDialog1.Options := SaveDialog1.Options + [ofOverwritePrompt];
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
end;
главная страница• задать вопрос
email: delphi4all@narod.ru
|
