VA
Size: a a a
z
z
LWorker := TSomeWorker.Create;
try
LWorker.Calculate(LData);
finally
FreeAndNil(LWorker)
end;
z
z
VA
LWorker := TSomeWorker.Create;
try
LWorker.Calculate(LData);
finally
FreeAndNil(LWorker)
end;
z
VA
z
VA
z
z
z
z
FAppProps := TApplicationProperties.Create(Self);
FAppProps.OnException := MyExceptionHandler;
FAppProps.CaptureExceptions := True;
z
RS
ExceptProc
Присваиваешь ей обработчик типа procedure procedure (Obj: TObject; Addr: Pointer; FrameCount: Longint; Frames: PPointer);
и вот ты перехватывашь все необработанные ошибки. И даже окошко не будет генерится в программе [кажется]RS
try ... except
..end
z
z
z
ExceptProc
Присваиваешь ей обработчик типа procedure procedure (Obj: TObject; Addr: Pointer; FrameCount: Longint; Frames: PPointer);
и вот ты перехватывашь все необработанные ошибки. И даже окошко не будет генерится в программе [кажется]