TList mit Sammlung von Klassen

[sniper_w]

Zitat:

Sprich alle Eigenschaften des TTerminal der TList[1] gleichen der von TTerminal der TList[2]...usw.

Wiel du immer an der selben Stelle die Werte speicherst. Ich würde es so machen:

Delphi-Quellcode:

n := 0;
while not D_DataModule.DataSet.Eof do
begin
  Terminal := TTerminal.Create();
  with Terminal do
  begin
    ID := D_DataModule.DataSet.FieldByName('TMID').Value;
    Typ := D_DataModule.DataSet.FieldByName('TYP').AsString;
    Bezeichn := D_DataModule.DataSet.FieldByName('BEZEICHNUNG').AsString;
    Beschreib := D_DataModule.DataSet.FieldByName('BESCHREIBUNG').AsString;
  end;
  reg.LTerminals.Add(Terminal);
  D_DataModule.DataSet.Next;
  n := n + 1;
end;