RiverSoftAVG Products Help

Delphi

public 
  procedure SaveToXML( const Node: IXMLNode ); overload; override; 
 

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

•RSGeneticBase.TRSIndividual.SaveToXML(IXMLNode)

•RSGeneticBase.TRSPopulation.LoadFromXML(IXMLNode)

•TRSGAPopulation

•RSGeneticAlgorithm