Hola TecnoBestia.
Me alegra que hayas solucionado el problema, pero creo que el amigo
escafandra se refería a algo parecido a esto:
Código Delphi
[-]
...
type
TIndividuo = class(TPersistent)
procedure Assign(aCustomer: TPersistent); override;
private
FNombre: string;
FEdad: Integer;
...
public
...
property Nombre: string read FNombre write FNombre;
property Edad : integer read FEdad write FEdad;
...
end;
procedure TIndividuo.Assign(aCustomer: TPersistent);
begin
if aCustomer is TIndividuo then
begin
FNombre := TIndividuo(aCustomer).FNombre;
FEdad := TIndividuo(aCustomer).FEdad;
...
end
else
inherited Assign (aCustomer);
end;
...
end.
...
procedure TForm1.btnAssign(Sender: TObject);
var
Individuo1, Individuo2: TIndividuo;
begin
Individuo1 := TIndividuo.Create;
Individuo1.Nombre := 'PEPE';
Individuo1.Edad := 15;
Individuo2 := TIndividuo.Create;
Individuo2.Assign(Individuo1);
Individuo1.Free;
ShowMessage(Format('%s %d',[Individuo2.Nombre, Individuo2.Edad]));
...
end;
Un saludo.