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... :hello:
Vielen Dank! :spin: