![]() |
AW: eigene Klasse als array
Code:
kommt das alles in den TForm1.FormCreate Teil?
//Initialisierung des Arrays ganz zu beginn:
SetLength(MeineKlassen,0); //Initialisierung eines neuen Array-Elementes: SetLength(MeineKlassen,Length(MeineKlassen)+1); //Array um ein Feld erweitern Meineklassen[High(MeineKlassen)]:=TMeineKlasse.create; //Instanz erzeugen |
AW: eigene Klasse als array
Oder in jeder anderen procedure, ja ;-)
|
AW: eigene Klasse als array
:wall:
Denk doch mal nach... Der erste Teil kann in OnCreate, initialization oder was auch immer. Der zweite Teil kommt dann dahin, wo du eine Einheit hinzufügen willst. |
AW: eigene Klasse als array
jaja, ist jetzt so halbwegs klar, nur eine Fehlermeldung kommt: Inkompatible Typen: 'String' und 'Einheitenlisten'
dass kommt bei der zeile: SetLength(Einheitenliste1,0); ich hab eigentlich den code aus dem dritten post nachgebaut mit meinen Bezeichnungen. |
AW: eigene Klasse als array
Warum statt einem Array nicht einfach eine ObjectList nehmen?!? Die ist doch genau für so einen Zweck gemacht (oder gabs die bei D2 nicht? Bin erst bei D7+ eingestiegen :) )
SCRaT |
AW: eigene Klasse als array
was weiß ich obs die gibt... ich hab doch keine ahnung, aber ich such mal danach^^
|
AW: eigene Klasse als array
Delphi-Quellcode:
... zumindest so ähnlich :)
MeineObjectList : TObjectList;
[...] MeineObjectList := TObjectList.Create; MeineObjectList.Add(MeineKlasse.Create); { Hier kann man zugreifen } TMeineKlasse(MeineObjectList[0]).Feldname := 'sdfsdf'; { und zum schluß alles freigeben } for i := 0 to MeineObjectList.Count-1 do TMeineKlasse(MeineObjectList[i]).Free; MeineObjectList.Free; |
AW: eigene Klasse als array
Weiß jemand obs das in Delphi 3 gibt? Ich habs gerade ausprobiert und da kam: Undefinierter Bezeichner: TObjectList . Heißt das die Idee mit Objectlist kann ich vergessen oder mir nen neueres Delphi besorgen?
|
AW: eigene Klasse als array
![]() Zitat:
|
AW: eigene Klasse als array
Zitat:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:06 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-2025 by Thomas Breitkreuz