Mi clase es muy simple y es para la aplicación de un algoritmo denominado Simulating Annealing para hacer clasificación de datos, mi clase es un Individuo que que contendrá únicamente lo que se muestra en el código siguiente:
Código PHP:
Individuo=class(TObject)
private
protected
public
VClasificacion:VectorIR;
VCoordenadas:VectorIR;
Inercia:Double;
VDistancias:VectorIR;
TieneClasesVacias:Boolean;
procedure CargarClasificacionYDistancias();
procedure GenerarVecino(CantiParticion:Integer);
procedure CGRealesParaClasificacion();
function RecalcularInercia:Double;
published
//destructor Destroy; override;
end;
Si creo la clase derivada de TObject y genero el procedimiento GenerarCopia tal como se muestra en el código siguiente
Código PHP:
procedure Individuo.GenerarCopia(IndiEnviado:Individuo);
begin
VCoordenadas:= IndiEnviado.VCoordenadas;
VClasificacion:=IndiEnviado.VClasificacion;
VDistancias:=IndiEnviado.VDistancias;
Inercia:=IndiEnviado.Inercia;
TieneClasesVacias:=IndiEnviado.TieneClasesVacias;
end;
Y uso éste para poder realizar la copia y no la asignación del puntero, ¿qué problema tendría? ¿qué estoy perdiento al hacerlo así, ya que en este momento me está funcionando? Pero claro que si es mejor hacerlo de la manera que ustedes indican lo haré sin problema.