type AIEvolvingPlant = class(
AIPlant
)
AIPlant
> AILivingThing
> AIThing
> AIBaseObject
Constructor Create(aParent: pointer); |
|
Destructor Destroy; override; |
|
procedure FullDisplay(aList: TStrings); override; |
|
function GetDNA: pointer; override; |
|
function HasDNA: boolean; override; |
|
procedure LoadFromFile(var aFile: TextFile); override; |
|
function OneLineDisplay: string; override; |
|
procedure SaveToFile(var aFile: TextFile); override; |
Constructor Create(aParent: pointer); |
create and delete
Destructor Destroy; override; |
procedure FullDisplay(aList: TStrings); override; |
function GetDNA: pointer; override; |
function HasDNA: boolean; override; |
DNA access
procedure LoadFromFile(var aFile: TextFile); override; |
function OneLineDisplay: string; override; |
display routines
procedure SaveToFile(var aFile: TextFile); override; |
file load/save routines
property DNA: AIDNA; |
property DNA: AIDNA; |