Kopieren einer generischen TObjectListe<T>

[Alexander I]

Hallo,

ich möchte eine generische

Delphi-Quellcode:

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:

Delphi-Quellcode:

 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 :

Delphi-Quellcode:

 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

Delphi-Quellcode:

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:

Zitat von Alexander I (Beitrag 1259487)

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 :stupid:

Das Kopieren von Instanzen ist in Delphi nicht eingebaut (andere Sprachen kennen da z.B. die Methode

Delphi-Quellcode:

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

Delphi-Quellcode:

OwnsObjects

der Objektliste. Ist das auf

Delphi-Quellcode:

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>?