RiverSoftAVG Products Help

Delphi

published
  property GeneType: TGeneType read FGeneType write SetGeneType;
 

The following example prints out the different values of the gene based on its GeneType:

Delphi

function TRSGAGene.AsString(Bits: TRSEncodedBits): String;
 var
    i: Integer;
    f: TGAFloat;
 begin
      case GeneType of
           gtBoolean: if GeneAsBoolean(Bits) then result := 'True' else result := 'False';
           gtInteger:
           begin
                i := GeneAsInteger(Bits);
                result := IntToStr( i );
           end;
           gtFloat:
           begin
                f := GeneAsFloat(Bits);
                result := FloatToStr( f );
           end;
           gtEnumeration: GeneAsEnumeration(Bits);
      else
          result := Bits.AsBitString[Offset, Size];
      end;
 end;

Reference

•MaxValues

•MinValues

•RSGeneticAlgorithm.TRSGAGene.Size

•RSGeneticAlgorithm.TRSGAGene.Enumerations

•RSGeneticAlgorithm.TRSGAGene.AsBoolean[Integer]

•RSGeneticAlgorithm.TRSGAGene.AsDouble[Integer]

•RSGeneticAlgorithm.TRSGAGene.AsFloat[Integer]

•RSGeneticAlgorithm.TRSGAGene.AsEnumeration[Integer]

•RSGeneticAlgorithm.TRSGAGene.AsInt64[Integer]

•RSGeneticAlgorithm.TRSGAGene.AsInteger[Integer]

•TRSGAGene

•RSGeneticAlgorithm