Klasse in einer TList wird immer überschrieben

[sirius]

Nein, so meinte ich das nicht. Hab ich (eigentlich) auch nicht so geschrieben.

Delphi-Quellcode:

procedure TSoftwarePaket.Init; 
begin 

LCustomerTerminal := TObjectList.Create; 
LcustomerTerminal.ownsobject:=true;
... 
End;


procedure TSoftwarePaket.Add_Cust_Terminal(TMNA1: String; TMID, VSID, Syst, Knot: Integer; Schnittst, IP, Firmenbez, Firmware, TermProg, KartTyp, Zubehoer: String); 
begin 

  CustomerTerminal := TCustomerTerminal.Create; 
  
  with CustomerTerminal do 
   begin 
      TMNA := TMNA1; 
      TEID := TEID; //Das funktioniert so?
      TMID := TMID; 
      VSID := VSID; 
      Schnittst := Schnittst; 
      Syst := Syst; 
      Knot := Knot; 
      IP := IP; 
      Firmenbez := Firmenbez; 
      Firmware := Firmware; 
      TermProg := TermProg; 
      KartTyp := KartTyp; 
      Zubehoer := Zubehoer; 
   end; 

   LCustomerTerminal.Add(CustomerTerminal); 
   showmessage(TCustomerTerminal(LCustomerTerminal.Items[0]).tmna); 
End;