type AITool = class(
AIThing
)
AIThing
> AIBaseObject
Constructor Create(aParent: pointer); |
|
Destructor Destroy; override; |
|
procedure LoadFromFile(var aFile: TextFile); override; |
|
procedure SaveToFile(var aFile: TextFile); override; |
Constructor Create(aParent: pointer); |
Destructor Destroy; override; |
procedure LoadFromFile(var aFile: TextFile); override; |
procedure SaveToFile(var aFile: TextFile); override; |
property NextUse: integer; |
property NextUse: integer; |