RiverSoftAVG Products Help

Delphi

published
  property Enumerations: TStrings read GetEnumerations write SetEnumerations stored IsEnumeration;
 

The following example sets up and uses an enumeration with four values:

Delphi

begin
      with RSGeneticAlgorithm1.Genes.Add do
      begin
           GeneType := gtEnumeration;
           // define the enumerations
           Enumerations.Add('one');
           Enumerations.Add('two');
           Enumerations.Add('three');
           Enumerations.Add('four');
           // set all individual's chromosome for this gene to the enumerated value 'two'
           for i := 0 to RSGeneticAlgorithm1.Population.Count - 1 do
             AsEnumeration[i] := 'two';
      end;
 end;

Reference

•RSGeneticAlgorithm.TRSGAGene.AsEnumeration[Integer]

•RSGeneticAlgorithm.TRSGAGene.GeneType

•RSGeneticAlgorithm.TRSGAGene.Size

•TRSGAGene

•RSGeneticAlgorithm