So ungefähr. Das Ganze muss so aussehen :
Delphi-Quellcode:
TDaten = class (TObject)
ID,
nr : integer;
// weitere Nutzdaten
end;
TListe = class (TObjectList)
Daten : TDaten;
end;
var Liste : TListe;
ListeElement : TDaten;
Die Liste weiß nun welche Daten sie erhalten soll. Zuerst werden immer die Elemente erzeugt und bestückt. Die Elemente kommen nun in die TObjectList :
Delphi-Quellcode:
ListeElement := TDaten.Create;
ListeElement.ID := DS.FieldByName ('ID').AsInteger;
ListeElement.Nr := DS.FieldByName ('NR').AsInteger;
//...
Liste.Add (ListeElement);
Ganz am Anfang muss mit
Liste.Create;
die Liste erzeugt werden. Und sie muss am Ende wieder weg :
Liste.Free;
Steht OwnObjects der Liste auf true, dann sind mitsamt der Liste selbst auch die erzeugten Objekte weg.
