TList mit Sammlung von Klassen

[fapsons]

Nochmal besser lesbar...

Jetzt ist leider ein neues Problem aufgetreten:

Wenn ich die Eigenschaften von TTerminal aus der TList wie folgt beschreibe, sind alle TTerminals im TList identisch. Sprich alle Eigenschaften des TTerminal der TList[1] gleichen der von TTerminal der TList[2]...usw.


Ich hoffe ihr könnt mir folgen..

Delphi-Quellcode:

 
with D_DataModule.DataSet do //Terminaltypen abrufen 
begin 
SelectSQL.Clear; 
SelectSQL.Text := 'select * from terminal order by 1 asc'; 
Open; 
end; 


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

showmessage(TTerminal(reg.LTerminals.Items[0]).ID); // gibt 
showmessage(TTerminal(reg.LTerminals.Items[1]).ID); // jeweils die selben Werte aus, obwohl es in 
// der DB 2 unterschiedliche sind