Class TDSSObject

Unit

DSSObject

Declaration

type TDSSObject = class(TNamedObject)

Description

this is a GUID compliant to RFC 4122, v4

Hierarchy

• TObject
• TNamedObject
• TDSSObject

Overview

Fields

	DSS: TDSSContext;
	PrpSequence: pIntegerArray0;
	DSSObjType: Integer;
	ParentClass: TDSSClass;
	ClassIndex: Integer;
	Flags: TDSSObjectFlags;

Methods

	function GetNextPropertySet(idx: Integer): Integer;
	procedure PropertySideEffects(Idx: Integer; previousIntVal: Integer = 0); virtual;
	procedure DoErrorMsg(Const S, Emsg, ProbCause: String; ErrNum: Integer); inline;
	procedure DoSimpleMsg(Const S: String; ErrNum:Integer); inline; overload;
	procedure DoSimpleMsg(Const S: String; fmtArgs: Array of Const; ErrNum:Integer); overload; inline;
	procedure AppendToEventLog(const opdev: String; const action: String); inline;
	constructor Create(ParClass: TDSSClass);
	destructor Destroy; OVERRIDE;
	function Edit(Parser: TDSSParser): Integer;
	procedure MakeLike(OtherPtr: Pointer); virtual;
	procedure SetAsNextSeq(Index: Integer); inline;
	function GetPropertyValue(Index: Integer): String; VIRTUAL;
	procedure DumpProperties(F: TFileStream; Complete: Boolean; Leaf: Boolean = False); VIRTUAL;
	procedure SaveWrite(F: TFileStream); VIRTUAL;
	procedure CustomSetRaw(Idx: Integer; Value: String); virtual;
	function FullName: String;
	function DSSClassName: String;

Properties

	property PropertyValue[Index:Integer]: String READ GetPropertyValue;
	property Name: String READ LName WRITE Set_Name;

Description

Fields

	DSS: TDSSContext;

	PrpSequence: pIntegerArray0;

	DSSObjType: Integer;

	ParentClass: TDSSClass;
PD, PC, Monitor, LineCode, etc.

	ClassIndex: Integer;

	Flags: TDSSObjectFlags;
Index into the class collection list

Methods

	function GetNextPropertySet(idx: Integer): Integer;

	procedure PropertySideEffects(Idx: Integer; previousIntVal: Integer = 0); virtual;

	procedure DoErrorMsg(Const S, Emsg, ProbCause: String; ErrNum: Integer); inline;
DSSContext convenience functions

	procedure DoSimpleMsg(Const S: String; ErrNum:Integer); inline; overload;

	procedure DoSimpleMsg(Const S: String; fmtArgs: Array of Const; ErrNum:Integer); overload; inline;

	procedure AppendToEventLog(const opdev: String; const action: String); inline;

	constructor Create(ParClass: TDSSClass);

	destructor Destroy; OVERRIDE;

	function Edit(Parser: TDSSParser): Integer;

	procedure MakeLike(OtherPtr: Pointer); virtual;
Allow Calls to edit from object itself

	procedure SetAsNextSeq(Index: Integer); inline;

	function GetPropertyValue(Index: Integer): String; VIRTUAL;

	procedure DumpProperties(F: TFileStream; Complete: Boolean; Leaf: Boolean = False); VIRTUAL;
Use dssclass.propertyindex to get index by name

	procedure SaveWrite(F: TFileStream); VIRTUAL;

	procedure CustomSetRaw(Idx: Integer; Value: String); virtual;

	function FullName: String;

	function DSSClassName: String;

Properties

	property PropertyValue[Index:Integer]: String READ GetPropertyValue;

	property Name: String READ LName WRITE Set_Name;