Komplexe TList kopieren

[Rakshasa]

Hallo Leute,

für meine Undo-Funktion erstelle ich Kopien meiner aktuellen TList-Sturktur. Die TList besteht aus Record-Pointern, die wiederum selbst mehrere TLists enthalten, Strings, Integer, andere records.

Momentan gehe ich die einzelnen Elemente der TList durch und erstellt manuell einen neuen Pointer, welchen ich dann der neuen TList zuweise. Dieses Verfahren ist aber sehr mühselig; gibt es eine Möglichkeit, den gesamten Speicher, der den Pointer einer TList enthält zu kopieren und diese Kopie dann einer neuen TList zuzuweisen?

[WM_CLOSE]

Bei reinen Werttypen (z.B. Integer) ist das kein großes Prob,
aber sobald man zu Strings stößt, fangen die Probleme an.
Ganz zu schleigen von anderen Objekten wie TLists in dem Record.
Die Variable vom Typ TList speichert ja nur einen Pointer.
Den kannst du kopieren wie du willst, der zeigt immernoch auf dasselbe TList Objekt.
Mit den Strings verhält es sich ähnlich.

Ich hab das mal so getestet:

Delphi-Quellcode:

procedure Test
type
  TMyRecord=record
    str:array[0..5]of char;
    int:Integer;
  end;
  pMyRecord=^tMyRecord;
var
  List1:TList;
  List2:TList;
  i:TMyRecord;
  p:pMyRecord;
begin
  List1:=TList.Create;
  List2:=TList.Create;
  try
    i.int:=0;
    i.str:='Hase';
    ShowMessage(i.str);
    List1.Add(@i);
    ShowMessage(TMyRecord(List1[0]^).str);
    new(p);
    try
      List2.Add(p);
      TMyRecord(List1[0]^):=TMyRecord(List2[0]^);
      Inc(TMyRecord(List2[0]^).int);
      ShowMessage(IntToStr(TMyRecord(List1[0]^).int));
      ShowMessage(IntToStr(TMyRecord(List2[0]^).int));
      TMyRecord(List2[0]^).str:='Ratte';
      ShowMessage(TMyRecord(List1[0]^).str);
      ShowMessage(TMyRecord(List2[0]^).str);
    finally
      dispose(List2[0]);
    end;
  finally
    list1.Free;
    list2.Free;
  end;
end;

Komischerweise hat es sogar ein mal funktioniert. Das Problem bei dem Beispiel dürfte die Referenzzählung des Strings sein.

[ChrisE]

Hallo,

keine Ahnung ob es tut, aber was ist mit TList.Assign?

Gruß, Chris

[WM_CLOSE]

TList.Assign kopiert nur die Pointer (=Elemente in der Liste) hab es grad getestet.

[webcss]

Wie wär's mit Tobject anstatt record,

Dann geschwind ein Basis Object mit einer Clone methode gestrickt und eine ebensolche in eine eigene TList Klasse

und mit MyRootList.Clone ist der Lack fertig?

[himitsu]

die "ordentliche" Methode:

- statt der Records+Pointer ebenfalls Objekte verwenden
- allen enthaltenen Objekten eine "Clone"-Funktion verpassen
- TList auf eine erweiterte TObjectList ändern, welche diese Clone-Funktion verwendet.

> die Liste übergibt nun in Assign ihren Inhalt an die andere Liste
> dabei wird über .Clone eine Kopie des enthaltenen Objektes erstellt und in die neue Liste eingefügt
> jedes Objekt kopiert in .Clone auch untergeordnete Objekte, welche wiederrum über .Clone kopiert und ins neue Objekt eingetragen werden
> usw.

Also wie schon erwähnt.
Ich weiß aber nicht, ob Delphi 2007 schon TObject.Clone kennt ... wenn doch, dann dieses überschreiben und wenn nicht, dann selber eines einführen.

[Rakshasa]

Hmm...mit TObject habe ich mich noch nicht beschäftigt, eine .Clone-Function kennt mein Delphi 2007 nicht. Ich werde mal schauen, was ich hier so finden kann; ansonsten wirds wohl erstmal bei manuellen Kopieren bleiben..

Danke!

[Bummi]

Die Clone-Funktion müsstest Du den Klassen selbst beibringen...
Wenn Du Deine Kopierroutinen im Griff und optimiert hast und diese für Wartbar hältst besteht eh kein Handlungsbedarf. Schneller wird es durch genannte Methoden nicht, nur wartbarer.