Почему не ловится Exeption

← →
AFROLOV © (2002-04-29 12:23) [0]

Привет всем!
Пишу следующий код:

Procedure Form1.proc1; .. MSWord := CreateOleObject("Word.Application"); ... end; Procedure Form2.proc2; begin try//Если MSWord не создан, то понятное дело должна произойти ошибка но почему-то она не подавляется try MSWord.Visible:=False; MSWord.Quit(wdDoNotSaveChanges); except .. end; end;

Заранее спасибо.

← →
gek © (2002-04-29 12:31) [1]

А в промежутке
except
..
end;
что-нибудь стоит?

← →
Vovchik © (2002-04-29 12:32) [2]

А что вообще происходит-то? С OLE-exception"ами есть какая-то хитрость.

← →
AFROLOV © (2002-04-29 12:40) [3]

> А в промежутке
> except
> ..
> end;
> что-нибудь стоит?

Да стоит, но это не важно. Не может же оптимизатор блоки Try удалять.
> А что вообще происходит-то?

Сообщение выдается абсолютно логичное - "Variant does not reference an automation object"

> С OLE-exception"ами есть какая-то хитрость.

А какая?

← →
gek © (2002-04-29 12:49) [4]

Вот сей проверил у себя на D6

procedure TForm1.Button1Click(Sender: TObject);
var
MSWord: Variant;
begin

try//Если MSWord не создан, то понятное дело должна произойти ошибка но почему-то она не подавляется try
MSWord.Visible:=False;

except
showmessage("ddddddddd");
end;
end;

Вижу именно то, что хочу. В данном случае
showmessage("ddddddddd");

← →
AFROLOV © (2002-04-29 13:07) [5]

У меня тоже D6 но проблема почему-то такая есть.

А какая хитрость с OLE-exception"ами я не помню, по моему недавно был такой вопрос на форуме.

Обертывать надо в OleCheck

Что-то не получается. А примерчика не найдется?

Почему не ловится Exeption Найти похожие ветки