Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Klasse in einer TList wird immer überschrieben (https://www.delphipraxis.net/88486-klasse-einer-tlist-wird-immer-ueberschrieben.html)

sirius 16. Mär 2007 11:02

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;

fapsons 16. Mär 2007 11:27

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;

sirius 16. Mär 2007 11:30

Re: Klasse in einer TList wird immer überschrieben
 
Nach dem ersten Durchlauf ist ja auch nur einer hinzugefügt.
Da gibts nur items[0].

fapsons 16. Mär 2007 12:28

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.
Seite 2 von 2     12   

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