Du musst deine Objekte von
TPersistent ableiten (und nicht direkt von
TObject) !!
Dann musst du die Methode
Assign überschreiben:
Delphi-Quellcode:
procedure TAdresse.Assign(Source: TPersistent); // override;
var
i: integer;
begin
if Source is TAdresse then
begin
for i := Low(FNamen) to High(FNamen) do
FNamen[i] := TAdresse(Source).FNamen[i];
FStrasse := TAdresse(Source).FStrasse;
FOrt := TAdresse(Source).FOrt;
FLand := TAdresse(Source).FLand;
FPLZ := TAdresse(Source).FPLZ;
end
else
Inherited; // wichtig, immer wenn du mit Source nichts anfangen kannst inherited aufrufen
end;
Zu guter Letzt Assign benützen, um Objekte zu kopieren:
zielobject.Assign(quellobject);