Ach, jetzt kommen wir der Sache näher (Ich glaube Luckies TuT wärerecht hilfreich für dich). Ich versuch mal hier:
Vergess erstmal alles mit dem record (new, dispose und Pcustomer...)
Die objectliste ist in Ordnung (Du solltest noch die eigenschaft ownsobject auf true setzen.)
Das CustomerTerminal ist falsch. Du musst doch für jeden neuen Eintrag eine Instanz createn.
Delphi-Quellcode:
procedure TSoftwarePaket.Add_Cust_Terminal(TMNA1:
String; TMID, VSID, Syst, Knot: Integer; Schnittst,
IP, Firmenbez, Firmware, TermProg, KartTyp, Zubehoer:
String);
begin
customerTerminal:=TcustomerTerminal.create;
//hier jedes mal neu, du brauchst doch für jeden Kunden eine neue Instanz
//Das Free wird automatisch durch die ObjectList aufgerufen wenn ownsobject auf true ist
with CustomerTerminal
do
begin
TMNA := TMNA1;
TEID := TEID;
...
Zubehoer := Zubehoer;
end;
LCustomerTerminal.Add(CustomerTerminal);
...
End;