Objekt in Liste mit anderer Instanz ersetzen ohne Referenz zu verlieren

[norwegen60]

War mir nicht sicher ob Markus mit

Zitat:

Wenn es eigene Klassen sind einfach Assign für diese implementieren.

nicht noch was einfacheres gemeint hat

[himitsu]

Nein.

TPersistent.Assign und seine Freunde sind doof und wissen von nichts.
Ob man nun extern jedes Feld/Property kopiert, oder in einer Methode ala Assign macht ... gemacht werden muß es so oder so.

Sie können es auch garnicht, da sie nicht wissen was und wie es kopiert werden muß, sobald es keine einfachen Typen sind.

[mkinzler]

Wenn das in allen Klassen implemnetiert ist, musst Du ja nur für die "neuen" Eigenschaften implementieren

Delphi-Quellcode:

TBasis = class
 a,b: Integer;
 procedure Assign( Source: TPersistent); virtual;
end;

TTeil = class 
  aa, zz: integer;
  procedure Assign( Source: TPersistent); virtual;
end;

TAbg = class( TBasis)
  c: TTeil;
  d, e: Integer;
  procedure Assign( Source: TPersistent); virtual;
end;
...
procedure TBasis.Assign( Source: TPersistent); 
begin
  a := Source.a;
  b := Source.b;
end;
...
procedure TTeil.Assign( Source: TPersistent); 
begin
  aa := Source.aa;
  zz := Source.zz;
end;
...
procedure TAbg.Assign( Source: TPersistent); 
begin
  inherited Assign( Source); //a, b
  c.Assign( Source.c); //c
  d := Source.d;
  e := Source.e;
end;

[norwegen60]

Danke für eure Tips. Ich habe bestätigt bekommen, was ich so zu wissen geglaubt habe, aber trotzdem nochmal absichern wollte.

Bei vielen Properties wird leider aus dem "nur nur für die "..neuen" Eigenschaften..." etwas mehr und es geht eher um die laufenden Pflege. Dass jeder auch daran denkt dass da noch ein Assign gepflegt werden muss.

Ein klein bisschen hatte ich die Hoffung, dass es irgendwo noch eine Möglichkeit gibt, den Zeiger auf Instanz1.1 so zu ändern, dass er auf Instanz1.2 weiter leitet.

[himitsu]

Delphi-Quellcode:

TAbg = class(TBasis)
  procedure Assign(Source: TPersistent); {virtual;} overload;

Zitat von norwegen60:

Ein klein bisschen hatte ich die Hoffung, dass es irgendwo noch eine Möglichkeit gibt, den Zeiger auf Instanz1.1 so zu ändern, dass er auf Instanz1.2 weiter leitet.

Naja, PObject sowie PPointer
aber nja.

oder ein Objekt im Object, wo sich das innere Objekt tauschen lässt.

[norwegen60]

Zitat von himitsu:

Delphi-Quellcode:

TAbg = class(TBasis)
  procedure Assign(Source: TPersistent); {virtual;} overload;

Ich habe meine Assign aktuell nicht mit Virtual und Overload versehen, konnte aber nicht feststellen, dass etwas nicht geht und Compilerwarnung gabs auch keine.
Nur unsauber oder falsch?

[Uwe Raabe]

Das Delphi-eigene Assign ist in TPersistent deklariert und bildet somit schon mal ein Grundgerüst. Dort sind Assign und AssignTo virtual deklariert und können dann in abgeleiteten Klassen überschrieben und mit Leben gefüllt werden. Da deine Klassen nicht von TPersistent abgeleitet sind, hast du da natürlich freie Wahl.

[himitsu]

Dort war nur "falsch", dass es in TBasis virtual war und im Nachfahren nochmal virtual,
also verdeckt, anstatt überschrieben.