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;

[fapsons]

Vielen Dank schon mal für deine ganze Hilfe.
Bin leider nur immer noch nicht am Ziel..
Jetzt wird leider nur der erste TCustomerTerminal hinzugefügt.

Oh man, heute ist echt nicht mein Tag ^^...

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;

  with CustomerTerminal do
   begin
      TMNA := TMNA1;
      TEID := TEID;
      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); //funktioniert
   showmessage(TCustomerTerminal(LCustomerTerminal.Items[1]).tmna); //überschreitet Liste
End;

[sirius]

Nach dem ersten Durchlauf ist ja auch nur einer hinzugefügt.
Da gibts nur items[0].

[fapsons]

Super, du bist mein persönlicher Held des Tages...
Vielen Dank!