type AIAttachment = class(
AILink
)
AILink
> TLinkObject
procedure Attach(aThing: AIThing); |
|
procedure Detach; |
|
function Empty: boolean; |
|
function Holding: boolean; |
procedure Attach(aThing: AIThing); |
procedure Detach; |
function Empty: boolean; |
function Holding: boolean; |