Kopieren einer generischen TObjectListe<T>

[Alexander I]

Hallo,

ich möchte eine generische TObjectList<T> kopieren können.

Für den einfachen Fall TObjectList<T> habe ich eine Kopiermethode.

Aber es könnte auch TObjectList<TObjectList<T>> sein.

Dafür wollte ich die Assign Methode benutzen:  Assign(genericContainer, laCopy ,_genericContainer); .
==> [dcc32 Fehler] GenericContainer.pas(48): E2010 Inkompatible Typen: 'TList' und 'System.Generics.Collections.TObjectList<GenericCo ntainer.TGenericContainer<T>.T>'


Items mag er auch nicht :  Assign(genericContainer.Items[i], laCopy ,_genericContainer.Items[i]); ==>>> [dcc32 Fehler] GenericContainer.pas(48): E2010 Inkompatible Typen: 'TList' und 'T'

Wie könnte man das anstellen?

Delphi-Quellcode:

type TGenericContainer<T : class> = class(TObjectList)
  
 constructor Create(genericContainer :TObjectList<T>) overload;

end;

implementation

 constructor TGenericContainer<T>.Create(genericContainer :  TObjectList<T>);
 var i : int;
  
 begin
  
 inherited Create();

 _genericContainer := TObjectList<T>.Create;

 for i:= 0 to genericContainer.Count-1 do
 
   Assign(genericContainer, laCopy ,_genericContainer); // Hier sollte der Inhalt von genericContainer nach _genericContainer kopiert werden

 end;

end.

Gruß

Alexander

[Sir Rufo]

Du weißt, dass eine TObjectList immer nur die Referenzen auf Instanzen beinhaltet?

Möchtest du also jetzt die Instanzen duplizieren (ergibt jeweils eine neue Referenz, weil eben auch eine neue Instanz) oder einfach nur die Referenzen kopieren?

[Alexander I]

Ich brauche ein neues Objekt welches vom anderen absolut unabhängig ist,

und alle Instanzen in ObjektListe1 sollen fremd sein in ObjektListe2.

D.h. wenn ich ein UnterObject in ObjektListe1 lösche muß das kopierte UnterObject in ObjectListe2 noch vorhanden sein.

Gruß

Alexander

[Sir Rufo]

Zitat von Alexander I:

D.h. wenn ich ein UnterObject in ObjektListe1 lösche muß das kopierte UnterObject in ObjectListe2 noch vorhanden sein.

Das würde auch mit den Referenzen gehen

Das Kopieren von Instanzen ist in Delphi nicht eingebaut (andere Sprachen kennen da z.B. die Methode Clone ) und muss daher selber programmiert werden.

Es gibt da mehrere Ansätze

• ableiten von TPersistent und überschreiben von TPersistent.Assign bzw. TPersistent.AssignTo)
• per RTTI delphi instance copy rtti

[Der schöne Günther]

Ich glaube was du in Wirklichkeit suchst ist die Eigenschaft OwnsObjects der Objektliste. Ist das auf False gesetzt wird das Objekt nicht zerstört wenn es aus der Liste entfernt wird. Es ist dann natürlich noch in der anderen Liste, vollkommen unangetastet und gültig.

PS: Generics haben es dir aber wirklich angetan, oder?

PPS: Warum erbt dein TGenericContainer<T> von TObjectList und nicht von TObjectList<T>?