![]() |
Re: Klasse in einer TList wird immer überschrieben
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; |
Re: Klasse in einer TList wird immer überschrieben
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; |
Re: Klasse in einer TList wird immer überschrieben
Nach dem ersten Durchlauf ist ja auch nur einer hinzugefügt.
Da gibts nur items[0]. |
Re: Klasse in einer TList wird immer überschrieben
Super, du bist mein persönlicher Held des Tages... :hello:
Vielen Dank! :spin: |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:42 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz