TExceptObject¶

type
  TExceptObject = record
    FObject: type

      TObject = class
      public
        const
          SystemHasExtendedRTTI = False;
        constructor Create;
        destructor Destroy;
        class function newinstance : TObject;
        procedure FreeInstance;
        function SafeCallException : HRESULT;
        procedure DefaultHandler;
        procedure Free;
        class function InitInstance : TObject;
        procedure CleanupInstance;
        class function ClassType : TClass;
        class function ClassInfo : pointer;
        class function ClassName : shortstring;
        class function ClassNameIs(const name: RTLString) : Boolean; overload;
        class function ClassNameIs(const name: ShortString) : Boolean;
        class function ClassParent : TClass;
        class function InstanceSize : SizeInt;
        class function InheritsFrom : Boolean;
        class function StringMessageTable : pstringmessagetable;
        class function MethodAddress : CodePointer;
        class function MethodName : shortstring;
        class procedure GetLastCastErrorInfo;
        function FieldAddress : pointer;
        procedure AfterConstruction;
        procedure BeforeDestruction;
        procedure DefaultHandlerStr;
        procedure Dispatch;
        procedure DispatchStr;
        function GetInterface(const iid: TGUID; out obj) : Boolean;
        function GetInterface(const iidstr: shortstring; out obj) : Boolean;
        function GetInterfaceByStr : Boolean;
        function GetInterfaceWeak : Boolean;
        class function GetInterfaceEntry : pinterfaceentry;
        class function GetInterfaceEntryByStr : pinterfaceentry;
        class function GetInterfaceTable : pinterfacetable;
        class function UnitName : RTLString;
        class function QualifiedClassName : RTLString;
        procedure DisposeOf;
        procedure CheckDisposed;
        function Equals : Boolean;
        function GetHashCode : PtrInt;
        function ToString : RTLString;
      end;
      Addr: CodePointer = Pointer;
      Next: PExceptObject = ^TExceptObject;
      refcount: LongInt;
      Framecount: LongInt;
      Frames: PCodePointer = ^CodePointer;
      UnwindFrame: Pointer;
  end;