Форум: "Основная";
Текущий архив: 2002.05.13;
Скачать: [xml.tar.bz2];
Вниз
Почему не ловится 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 но проблема почему-то такая есть.
← →
Vovchik (2002-04-29 13:13) [6]А какая хитрость с OLE-exception"ами я не помню, по моему недавно был такой вопрос на форуме.
← →
Anatoly Podgoretsky (2002-04-29 13:26) [7]Обертывать надо в OleCheck
← →
AFROLOV (2002-04-29 13:45) [8]Что-то не получается. А примерчика не найдется?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.05.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c
