Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

try except


Pavlov ©   (2009-06-03 16:36:00) 

Открываю файл Excel. Хочу сделать так, чтобы выдавалось сообщение, если этого файла нет. Делаю так, но выскакивает ошибка. Что я делаю не правильно?
begin
 try
 path:=ExtractFilePath(Edit1.Text)+'ууу.xls';
 Excel := CreateOleObject('Excel.Application');
 Excel.Workbooks.Open[path, 0, True];
 except
   ShowMessage('Файл не найден');
 end;


Anatoly Podgoretsky   (2009-06-03 19:21:00) [1]


>    ShowMessage('Файл не найден');

Это реально круто!


int64   (2009-06-03 17:30:00) [2]

А если 'Excel не установлен? - "файл не найден"
Как минимум нужно три обработчика.


Медвежонок Пятачок   (2009-06-03 16:47:00) [3]

Хочу сделать так, чтобы выдавалосьсообщение, если этого файла нет. Делаю так, но выскакиваетошибка

по моему что хотел, то и получил.

причем не только если файла нет (как будто если он есть, то все обязательно сростется)


Dennis I. Komarov   (2009-06-03 16:42:00) [4]

Сдается мне что DisplayAlerts поможет ;)


Dennis I. Komarov   (2009-06-03 16:39:00) [5]

FileExists?

> Что я делаю не правильно?

Наверное ловишь не там exception


Плохиш   (2009-06-03 16:39:00) [6]


> Что я делаю не правильно?

1. Не нажимаешь кнопку "Run/Continue".
2. Запускаешь программу из среды.
3. Не отключил в настройках "останавливать выполнение при ошибках".


Собачка Павлова   (2009-06-03 16:38:00) [7]

F1 FileExists()


Медвежонок Пятачок   (2009-06-03 16:38:00) [8]

все верно делаешь.
хочешь сообщения и оно появляется


Наверх

Титульная страница Поиск, карта сайта Написать письмо