TRSGAGene.AsDouble[Integer] Property

Delphi

public
  property AsDouble[ Index: Integer ]: Double read GetAsDouble write SetAsDouble;
 

To access the specific gene values for an individual in the population, you use the accessor properties (AsBoolean, AsInteger, etc) and index the values by the index for the individual in the population. To sum all integer genes for every individual, you would do the following:

Delphi

var
   iGene, iPop, Sum, IndividualSum: Integer;
 begin
   Sum := 0;
   // for every individual in the population
   for iPop := 0 to RSGeneticAlgorithm1.Population.Count - 1 do
   begin
     // sum the gene values for this individual
     IndividualSum := 0;
     for iGene := 0 to RSGeneticAlgorithm1.Genes.Count - 1 do
       if RSGeneticAlgorithm1.Genes[iGene].GeneType = gtInteger then
          IndividualSum := IndividualSum + RSGeneticAlgorithm1.Genes[iGene].AsInteger[iPop];
     // write out the sum for this individual
     ListBox1.Items.Add('Individual #'+IntToStr(iPop)+' genes equal '+IntToStr(IndividualSum));
     // add the sum to the running total
     Sum := Sum + IndividualSum;
   end;
   // write out the sum for all individuals
   ListBox1.Items.Add('Total = '+IntToStr(Sum));
 end; 

Reference