Exceptions Type to Ignore не работает

← →
pasha_golub © (2010-04-21 12:02) [0]

Есть у меня класс

EMyException = class(EAbort)

внутре кода, он иногда выстреливает. Хочу чтобы дебаггер не останавливался на этой строчке. По идее он и так не должен, ибо стоит галочка напротив VCL EAbort Exceptions.

Добавил вручную EMyException, запускаю. Дохожу до места предполагаемой отладки, жму F8 (Step Over), там внутре возбуждается EMyException и гасится, но редактор подсвечивает мне место обработки этого исключения:

except Result := CheckError; end;

Чего ему надобно? Если запускаю просто на исполнение (без Step Over), то не останавливается.

← →
pasha_golub © (2010-04-21 12:19) [1]

type EMyException = class(Exception); procedure LowLevel; begin raise EMyException.Create("Low Level"); end; function CheckLowLevel: boolean; begin try LowLevel(); Result := True; except result := False; // <------ А здесь блин оказываемся end; end; procedure TForm1.Button2Click(Sender: TObject); begin if CheckLowLevel then //<----- здесь жмакаем F8 ShowMessage("FooBar"); end;

Так вот

И даже если так, то не работает:

procedure LowLevel; begin raise EABort.Create("Low Level"); end;

Exceptions Type to Ignore не работает Найти похожие ветки