type AIDNA = class()
procedure Combine(FatherDNA, MotherDNA: AIDNA); |
|
procedure CopyFrom(aDNA: AIDNA); |
|
Constructor Create; |
|
Destructor Destroy; override; |
|
procedure FullDisplay(aList: TStrings); |
|
procedure LoadFromFile(var aFile: TextFile); |
|
procedure LoadFromINI(aFileName: string); |
|
function OneLineDisplay: string; |
|
procedure SaveToFile(var aFile: TextFile); |
|
function SaveToINI(aFileName: string): boolean; |
|
procedure SetBlue(aValue: single); |
|
procedure SetBounce(aValue: single); |
|
procedure SetBuoyancy(aValue: single); |
|
procedure SetGreen(aValue: single); |
|
procedure SetPreferredFood(aValue: integer); |
|
procedure SetRed(aValue: single); |
procedure Combine(FatherDNA, MotherDNA: AIDNA); |
combine two DNA values into one
procedure CopyFrom(aDNA: AIDNA); |
Constructor Create; |
create and delete
Destructor Destroy; override; |
procedure FullDisplay(aList: TStrings); |
procedure LoadFromFile(var aFile: TextFile); |
procedure LoadFromINI(aFileName: string); |
function OneLineDisplay: string; |
display routines
procedure SaveToFile(var aFile: TextFile); |
file load/save routines
function SaveToINI(aFileName: string): boolean; |
procedure SetBlue(aValue: single); |
procedure SetBounce(aValue: single); |
procedure SetBuoyancy(aValue: single); |
procedure SetGreen(aValue: single); |
procedure SetPreferredFood(aValue: integer); |
procedure SetRed(aValue: single); |
property Blue: single; |
|
property Bounce: single; |
|
property Buoyancy: single; |
|
property Green: single; |
|
property GrowthRate: single; |
|
property MassMax: single; |
|
property Mutation: single; |
|
property PreferredFood: integer; |
|
property Red: single; |
|
property SizeMax: single; |
property Blue: single; |
property Bounce: single; |
property Buoyancy: single; |
property Green: single; |
property GrowthRate: single; |
property MassMax: single; |
property Mutation: single; |
properties
property PreferredFood: integer; |
property Red: single; |
property SizeMax: single; |