Como puedo asignar una copia de una instancia sin que sea una referencia.

[[Delphius]]

¿Y Vale la pena heredar desde TComponent sólo por un método? Antes a cambios en la estructura jerárquicas de nuestras clases es mejor pensarlo dos veces.

¿Te aporta alguna otra ventaja que sea de la clase TComponent? ¿necesitarás hacer streaming para recuperar datos?

¿En que te afecta, o que tan complicado es directamente añadirle un método CopiarA() que haga un trabajo similar? Digo... siendo honestos es lo mismo que harías con el Assing:

Código Delphi [-]
ObjDestino.Propiedad := ObjFuente.Propiedad;

Con todo repeto, me parece un desperdicio heredar de TComponent si en verdad la clase no se va a comportar como un componente.

Saludos,

[[maeyanes]]

Hola...

Delphius, según creo recordar, TComponent desciende de TPersistent y no al revés. A lo que voy es que heredar una clase de TPersistent no hace que esta se comporte como un componente. TPersistent solo define métodos para serializar un objeto.


Saludos...

[roman]

Empezado por maeyanes

Delphius, según creo recordar, TComponent desciende de TPersistent y no al revés. A lo que voy es que heredar una clase de TPersistent no hace que esta se comporte como un componente. TPersistent solo define métodos para serializar un objeto.

Así es. Aún así, aplica lo que comenta Delphius. ¿Vale la pena derivar de TPersistent?

// Saludos

[[Delphius]]

Empezado por maeyanes

Hola...

Delphius, según creo recordar, TComponent desciende de TPersistent y no al revés. A lo que voy es que heredar una clase de TPersistent no hace que esta se comporte como un componente. TPersistent solo define métodos para serializar un objeto.


Saludos...

¡Tienes razón! Siempre me confundo a estas dos clases. Tengo que estudiar más y mejor

Pero como dijo román, el planteo sigue siendo igual de válido. ¿Vale la pena heredar la clase sólo por un método? Yo no creo.

Saludos,

[TecnoBestia]

Hola, ¿De quien me recomiendan heredar?
¿Puedo heredar de TOject y crear un procedimiento Copiar? algó así como

Código PHP:

  procedure Individuo.CopiarInstancia(IndiEnviado:Individuo);
  begin
    VCoordenadas:= IndiEnviado.VCoordenadas;
    VClasificacion:=IndiEnviado.VClasificacion;
    VDistancias:=IndiEnviado.VDistancias;
    Inercia:=IndiEnviado.Inercia;
    TieneClasesVacias:=IndiEnviado.TieneClasesVacias;
  end; 


¿pierdo algo al hacerlo así?

Gracias por sus acertadas respuestas .

[[maeyanes]]

Hola...

Para tu caso en particular, no veo por que no hacerlo así, ya que es una clase simple y no necesitas sobrecargarla con métodos que ni vas a usar.


Saludos...

[TecnoBestia]

Gracias, lo haré así.

[TecnoBestia]

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.