А можно вам задачку на объяснение принципа работы Исключений. Delphi 10.4. program

Question

А можно вам задачку на объяснение принципа работы Исключений. Delphi 10.4. program

Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
System.SysUtils, System.Classes;

procedure ShowResult(L: Double);
var
MyEx: Exception;
begin
MyEx := nil;
try
writeln(7/L);
except
on e: Exception do
begin
MyEx := e;
writeln('Exception: ', e.Message);
end;
end;
if Assigned(MyEx) then
writeln('ShowResult: ', MyEx.Message);
end;

begin
ShowResult(0.0);
readln;
end.
Что таки происходит когда мы делаем такое?

#lazarus #programming #russian

0

11.02.2022

2 ответов

22 просмотра

YuS Автор вопроса

Александр (Rouse_) Багель
принцип простой - тебе повезло что ты не обратился...

Да. Походил отладчиком. Вроде понятней стало. Спасибо.

0

11.02.2022

Александр (Rouse_) Багель · Accepted Answer

принцип простой - тебе повезло что ты не обратился к виртальным методам. а так бы упал бы еще раз но уже с AV Для более полного понимания встань бряком в destructor Exception.Destroy; тогда и поймешь что после выхода из обработчика исключения MyEx фактически указывает на разрушеный обьект

169 похожих чатов

А можно вам задачку на объяснение принципа работы Исключений. Delphi 10.4. program

2 ответов

Похожие вопросы