Class TLinkObject

Unit

type TLinkObject = class()

============================================================================

	`procedure AssignLeftObject(aObject: AIBaseObject);`
	`procedure AssignRightObject(aObject: AIBaseObject);`
	`procedure CopyFrom(aLinkObject: TLinkObject); virtual;`
	`constructor Create;`
	`procedure InvalidateLeft;`
	`procedure InvalidateRight;`
	`procedure LoadFromFile(var aFile: TextFile);`
	`procedure SaveToFile(var aFile: TextFile);`
	`function Valid: boolean;`
	`function ValidLeft: boolean;`
	`function ValidRight: boolean;`

procedure AssignLeftObject(aObject: AIBaseObject);

procedure AssignRightObject(aObject: AIBaseObject);

procedure CopyFrom(aLinkObject: TLinkObject); virtual;

constructor Create;

procedure InvalidateLeft;

procedure InvalidateRight;

procedure LoadFromFile(var aFile: TextFile);

procedure SaveToFile(var aFile: TextFile);

function Valid: boolean;

function ValidLeft: boolean;

function ValidRight: boolean;

	`property LeftHandle: Int64;`
	`property LeftObjectPointer: Pointer;`
	`property RightHandle: Int64;`
	`property RightObjectPointer: Pointer;`

property LeftHandle: Int64;

property LeftObjectPointer: Pointer;

property RightHandle: Int64;

property RightObjectPointer: Pointer;

Generated by PasDoc 0.8.7 on Wed 01/ Oct 2003 00:51:35