исключения

← →
Катерина (2005-12-27 22:44) [0]

Как создать файл если я добавляю текстовый документ в TreeView, а пользователь в OpenDialog.FileName вписывает название файла, которого на диске нет?

procedure TForm1.AddDocClick(Sender: TObject);
begin
if OpenDialog1.Execute then begin
try
if not FileExists (OpenDialog1.FileName)then
raise OpenException.Create ("Файл не существует!Создать его?");
AddingDocument;
except
on E:OpenException do begin
Msg := MessageDlg (E.Message, mtWarning, [mbYes, mbNo], 0);
if Msg = mrNo then exit
else
AddingDocument
//Вот здесь должен создаваться новый файл
end;
end;
end
else exit;
end;

Заранее спасибо:)

← →
Кефир87 © (2005-12-27 22:51) [1]

if not FileExists(OpenDialog1.FileName) then ОШЫПКА!
Зачем все доверять исключениям...

← →
Johnmen © (2005-12-27 23:18) [2]

...и вообще есть же TSaveDialog

FileCreate

исключения Найти похожие ветки