Class AILink

Unit

type AILink = class(TLinkObject)

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

TLinkObject

	`procedure AssignOrigin(aObject: AIBaseObject);`
	`procedure AssignTarget(aObject: AIBaseObject); virtual;`
	`function Connected: boolean;`
	`procedure Disconnect;`
	`function Disconnected: boolean;`
	`procedure InvalidateOrigin;`
	`procedure InvalidateTarget;`
	`function OneLineDisplayBoth: string;`
	`function OneLineDisplayRight: string;`
	`function OriginKind: integer;`
	`function TargetKind: integer;`
	`function ValidOrigin: boolean;`
	`function ValidTarget: boolean;`

procedure AssignOrigin(aObject: AIBaseObject);

procedure AssignTarget(aObject: AIBaseObject); virtual;

function Connected: boolean;

procedure Disconnect;

function Disconnected: boolean;

procedure InvalidateOrigin;

procedure InvalidateTarget;

function OneLineDisplayBoth: string;

function OneLineDisplayRight: string;

function OriginKind: integer;

function TargetKind: integer;

function ValidOrigin: boolean;

function ValidTarget: boolean;

	`property Origin: AIThing;`
	`property Target: AIThing;`

property Origin: AIThing;

property Target: AIThing;

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