Forum: Object-Pascal / Delphi-Language
Delphi
by TheAn00bis,
27. Sep 2005
Ah :idea:, vielen Dank!
Klar, dann muss da TKarte hin... gar nicht dran gedacht :|.
Zum Glück nicht... :)
Forum: Object-Pascal / Delphi-Language
Delphi
by TheAn00bis,
27. Sep 2005
Danke, aber die Listen in KartenListeListe werden dynamisch erstellt und haben alle den selben Namen. (oder!?) Jedenfalls erstelle ich die so:
KartenListeListe:=TList.Create;
for i:=1 to 5 do
begin
KartenListe:=TList.Create;
KartenListeListe.Add(KartenListe);
Forum: Object-Pascal / Delphi-Language
Delphi
by TheAn00bis,
27. Sep 2005
Ein Problem hätte ich doch noch:
Ich hab jetzt eine KartenListeListe, die viele KartenListen enthällt. Alles Typ TList.
Die KartenListen enthalten Pointer auf viele TKarten. Eine Funktion von TKarte ist beispielsweise
"test". Ihr Ergebnis ist vom Typ String.
Wie weise ich jetzt einer Variable den Wert dieser Funktion zu?
Beispielsweise nehme ich aus KartenListeListe die erste...
Forum: Object-Pascal / Delphi-Language
Delphi
by TheAn00bis,
25. Sep 2005
Die würden bis zum runterfahren drin bleiben? Ist ja verrückt...
?!
Hab jetzt die TList-Variante genommen und bin sehr zufrieden! :)
Forum: Object-Pascal / Delphi-Language
Delphi
by TheAn00bis,
24. Sep 2005
Wow, danke für die zahlreichen Antworten!
Werde alle Varianten ausprobieren! Dann lerne ich 1. am meiten und kann 2. selber entscheiden, welches für mich das sinnvollste ist. :)
Edit: Zur TList-Variante: Das reicht doch, wenn ich die Liste ganz zum Schluß freigebe? Im onDestroy der Klasse? Warum muss ich das eigentlich selber machen, wird das beim beenden des Programmes nicht automatisch...
Forum: Object-Pascal / Delphi-Language
Delphi
by TheAn00bis,
23. Sep 2005
Wenn ich dynamische StringListen erstelle, muss ich dann vorher jede einzeln Deklarieren?
Denn wenn ich zum Beispiel Buttons dynamisch erstelle, kann ich bei jedem Button den Namen neu zuweisen. Allerdings hat eine StringList die Eigenschaft "Name" nicht.
Hier ein Beispiel: Ich will 3StringListen erstellen, dass geht so:
procedure xyz;
var liste1, liste2, liste3: TStringList;
begin...