| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
исключения [D4]
Катерина © (2005-12-27 22:44:00)Как создать файл если я добавляю текстовый документ в 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;
Заранее спасибо:)
k2 (2005-12-28 08:56:00) [1]FileCreate
Johnmen (2005-12-27 23:18:00) [2]...и вообще есть же TSaveDialog
Кефир87 (2005-12-27 22:51:00) [3]
if not FileExists(OpenDialog1.FileName) then ОШЫПКА!
Зачем все доверять исключениям...
| |
