type AILinkContainer = class(
TLinkContainer
)
TLinkContainer
> AIBaseContainer
> TActiveList
procedure FullDisplay(aList: TStrings); override; |
|
function NewLink(aLeftObject: AIBaseObject): AILink; overload; |
|
function NewLink(aLeftObject: AIBaseObject; aRightObject: AIBaseObject): AILink; overload; |
procedure FullDisplay(aList: TStrings); override; |
function NewLink(aLeftObject: AIBaseObject): AILink; overload; |
function NewLink(aLeftObject: AIBaseObject; aRightObject: AIBaseObject): AILink; overload; |