ObjectList.Assign klappt nicht immer.

[Captnemo]

Hi,

ich habe eine etwas merkwürdiges Problem. Ich versuche das mal zu beschreiben.

Ich habe eine ObjectList (Gruppen: TGruppenList) mit Objecten, die ihrerseits wiederum eine ObjectList (Mitarbeiter: TMitarbeiterlist) beinhalten.

Nun will ich folgendes machen:
Die Daten eines Objects von Guppen samt Mitarbeiter an ein Unterformular weitergeben, dort ggf. bearbeiten und dann ggf. wieder zurückspeichern.
Die Variablen der vom Gruppenelement übergebe ich in Editfelder und die Objectlist Mitarbeiter übergebe ich in eine eigene ObjectList des Bearbeitungsformulars.

Ist die MitarbeiterList zu beginn leer funktioniert es auch so, wie erwartet. Sind dort aber schon Objecte vorhanden, so werden diese zwar an Bearbeitungsformular übergeben, aber kommen leer wieder zurück. Ist ein bischen blöd zu bescheiben, deswegen mal ein bischen Source.

Der Aufruf der Berabeitungsform:

Delphi-Quellcode:

  frm_gruppebearbeiten.guid:=frm_main.gruppen[0].guid;
  frm_gruppebearbeiten.edt_name.Text:=frm_main.gruppen[0].name;
  frm_gruppebearbeiten.edt_grnr.Text:=frm_main.gruppen[o].grnr;
  frm_gruppebearbeiten.mmo_beschreibung.Lines.Text:=frm_main.gruppen[0].Beschreibung;
  frm_gruppebearbeiten.mitglieder.Assign(frm_main.gruppen[0].Mitglieder);    //<-- Das Funktioniert, ich kann auf die Daten in Unterform zugreifen
  if frm_gruppebearbeiten.ShowModal=mrOk then
  begin
    frm_main.gruppen[0].name:=frm_gruppebearbeiten.edt_name.Text;
    frm_main.gruppen[0].Beschreibung:=frm_gruppebearbeiten.mmo_beschreibung.Lines.Text;
    frm_main.gruppen[0].Mitglieder.Clear;                                                    //<-- Hab ich mal hinzugefügt, bringt aber keine Änderung
    frm_main.gruppen[0].Mitglieder.Assign(frm_gruppebearbeiten.mitglieder);                  //<-- Hier werden die Daten wohl nicht richtig zurückgegeben.
                                                                                             //    Es sind zwar alle Elemente vorhanden, aber sie sind leer.
    frm_main.gruppen[0].SaveToDB;
    LeseGruppen(True);
  end;

Die Units, in denen die ObjectListen erstellt werden, lege ich mal als Anhang bei.

Ich habe bestimmt irgendwo einen Fehler gemacht, aber ich finde den einfach nicht. Soweit ich weiß erstellt Assign ja eine Kopie der Object. Demnach müßte es ja eigentlich funktionieren.

[Union]

Wäre ja gut wenn TMitarbeiter eine Assign-Methode hätte.

[Captnemo]

Wieso?
Reicht nicht das Assign, was TObjectList für TMitarbeiterList bereitstellt?

[Union]

Damit wird ja nur die Liste der Pointer kopiert. Für die einzelnen Objekte musst Du dann ein eigenes Assign erstellen und ggf. aufrufen.

[Captnemo]

Ich hatte das aus der Hilfe:

Zitat:

Kopiert Elemente aus einer Liste in eine andere.

Mit Assign übernehmen Sie die Elemente einer Liste in eine andere. Assign kombiniert die Quell- und die Zielliste mit dem im Parameter AOperator angegebenen logischen Operator.

Wenn der Parameter ListB angegeben (Delphi) bzw. nicht NULL (C++) ist, ersetzt Assign zunächst alle Elemente in dieser Liste mit den Elementen aus der Liste ListA und kombiniert anschließend ListB und ListA anhand des im Parameter AOperator angegebenen Operators.

Daraus hatte ich jetzt entnommen, dass alle "Elemente" kopiert werden. Ob jetzt als "Element" der hinterlegt Pointer gemeint ist, oder das tatsächliche Object, kann ich dieeser Hilfe nicht zweifelsfrei ermitteln. Wäre aber für mich sinnig.

[Medium]

In der Liste stehen aber nur die Pointer auf die darüber referenzierten Instanzen, NICHT die Instanzen selbst. Daher ist die Aussage in der Hilfe schon richtig: Da nur die Pointer in der Liste sind, werden auch nur diese kopiert. Willst du die Instanzen duplizieren, musst du das selbst tun.

[Popov]

@Captnemo

Assign ist nicht Assign, das ist evtl. das Problem. Was ein Assign der jeweiligen Klasse kopiert, das hängt von der Klasse ab. An besten immer in den Quellcode gucken.

[Union]

In dem Fall wären Deine Mitarbeiter besser bei TPersistent aufgehoben. Dann machst Du die Zuweisungen genau wie in Deiner DB-Speicherroutine.