try except

← →
Pavlov © (2009-06-03 16:36) [0]

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

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

F1 FileExists()

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

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

← →
Dennis I. Komarov © (2009-06-03 16:39) [3]

FileExists?

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

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

← →
Плохиш © (2009-06-03 16:39) [4]

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

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

← →
Dennis I. Komarov © (2009-06-03 16:42) [5]

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

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

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

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

← →
int64 (2009-06-03 17:30) [7]

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

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

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

try except Найти похожие ветки