TRSGAGene.GeneType Property

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