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]
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').As String;
TTerminal(reg.LTerminals.Items[n]).Beschreib := D_DataModule.DataSet.FieldByName('BESCHREIBUNG').A sString;
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
[delphi]