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

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

Exceptions Type to Ignore не работает [D7, WinXP]

pasha_golub ©   (2010-04-21 12:02:00) 

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

EMyException = class(EAbort)

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

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

 except
   Result := CheckError;
 end;

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

---

pasha_golub   (2010-04-21 12:22:00) [1]

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

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

---

pasha_golub   (2010-04-21 12:19:00) [2]

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;


Так вот

---

Наверх