INIT
(Available in 00 TS Base(Base) - TS_Base_5_ErrorSysErrorStatus)
Purpose
Short
Syntax
Syntax
Arguments
Description
Long
Returns
Return
Example
Example
Source
METHOD INIT( uDescription, uDefault, ulShown, udwLevel, udwSeverity ) CLASS TS_ErrorStatus
LOCAL dwSeverity AS DWORD
LOCAL dwLevel AS DWORD
dwLevel:=TS_SafeDWORD( udwLevel, NULL_PTR )+1U
_TS_TraceObjectVerifyLifeTime( SELF, _TS_TRACE_ID_INCREATE, 1U )
IF IsObject( uDescription )
DO CASE
CASE IsInstanceOf( uDescription, #_TS_ErrorShared )
SELF:_ErrorSharedObj:=uDescription
CASE LOGIC( _CAST, IVarGetInfo( uDescription, #_ErrorShared ) )
SELF:_ErrorSharedObj:=IVarGet( uDescription, #_ErrorShared ; ...
... )
OTHERWISE
SELF:_ErrorSharedObj:=_TS_ErrorShared{ SELF, dwLevel ; ...
... }
END
IF IsInstanceOf( uDescription, #Error