Estoy aprendiendo y hay cosas que no comprendo. Estuve leyendo documentación sobre creación de clases y constructores, etc. Pero no logro comprender el funcionamiento para lo que preciso. Sé que es algo básico y que no estoy comprendiendo, me explico:
Necesito crear el objeto Perro a partir de la clase TPERRO y utilizarlo de manera independiente como un recipiente para hacerle modificaciones, antes de asignarlo nuevamente al vector que contiene una colección de perros. Pero al asignarle a la variable PERRO, el objeto vector[i]
de la misma clase, para poder editarlo y posteriormente volver a guardarlo en el vector, es como que toda modificación en la variable perro, modificara de inmediato la posición del vector.
type
Tperro = class
nombre : string;
raza : string;
end
var
vector : array [1..10] of TPerro;
implementation
procedure Tform1.cargarperros; //cargo los perros
begin
vector[1]:= TPerro.create
vector[1].nombre := 'Cubo';
vector[1].raza := 'caniche';
vector[2]:= TPerro.create;
vector[2].nombre :='Chopper';
vector[2].raza := 'labrador';
end;
procedure TForm1.edicion; // editar Perro, utilizando el objeto "PERRO" y no directamente desde el vector
var perro : TPerro;
begin
Perro := TPerro.create;
Perro := vector[1]; //asigno los datos de vector[1] a variable PERRO
Perro.name := 'Olmedo';
Showmessage('Nombre anterior ' + vector[1].name); //aca el nombre sale "olmedo" (cuando deberia salir "CUBO")
Showmessage('Nombre Nuevo ' + Perro.name); //aca sale nombre "olmedo"
vector[1] := Perro //aca vuelvo al vector, y le asigno las modificaciones en el (recipiente) PERRO.
end;
El showmessage
(que lo utilizo para mostrarles lo que me sucede) muestra lo mismo tanto para PERRO, como para vector[1]
, cuando en realidad preciso que el vector que contiene la colección de perros, no se modifique previamente, sin antes verificar el objeto PERRO , al cual le hago las modificaciones.
Recuerdo que antes utilizando la clase (record) no tenia estos problemas. Pero como necesito agregarle métodos a la clase TPerro, preciso utilizarlo como Objeto y no como registro. Aunque no sé si se puede agregar métodos a la clase record. Aun así, estoy aprendiendo y preciso entender cómo funciona.
Todo cambio que realice al objeto PERRO, se realiza de inmediato también a la posición del array que previamente le asigne. ( PERRO := vector[1]
).
Hay algo que no estoy comprendiendo, o no sé si estoy salteándome algo, o debería declarar el método constructor de la clase con algún tipo de especificación.
Espero explicarme bien.