TRSGAGenes.SaveToXML(IXMLGenes,TRSGAIndividual) Method

Delphi

public
  procedure SaveToXML( const GenesXML: IXMLGenes; const Item: TRSGAIndividual ); overload; virtual;
 

The following example saves the gene descriptions and the population to a stream:

Delphi

procedure SaveToStream(const Stream: TStream);
 var
   GAXML: IXMLGeneticAlgorithm;
 begin
      GAXML := NewGeneticAlgorithm;
      RSGeneticAlgorithm1.Genes.SaveToXML( GAXML.Domain.GenoType );
      RSGeneticAlgorithm1.Population.SaveToXML( GAXML.Domain.Chromosomes );
      GAXML.OwnerDocument.SaveToStream(Stream);
 end;

Reference