Dynamisches Array

[Lotus]

Zeile 42 passte diesmal nicht ganz

Allerdings funktioniert dann die "with .. do" funktion nichtmehr oder? Das wäre ziemlich tödlich :X

[hugo1990]

Also with ... do tut auch mit Objekten, aber das hättest du auch durch probieren rausfinden können.
und wenn du aus record einfach class machst, dann sollte sich an deinem Code mit dem with ... do auch nichts ändern.

[OT]
Eigentlich Schade, dass ein so schönes Programmierkonstrukt wie with ... do in kaum einer anderen Sprache existiert.
[/OT]

[mkinzler]

Es ist aber auch eines der gefährlichsten Konstrukte

[Lotus]

Ich HABS ausporbiert... und es kam ein Fehler deswegen fragte ich ja.

Zugriffsverletzung auf Speicher kam dann..

Delphi-Quellcode:

type
  TKarte = class
            KartenName : string[12]; //Sieben, Acht, Neun, Zehn, Bube, Dame, König, Ass
            KartenWert : Byte; //zur Bestimmung des Indexes beim Array
            KartenZiffer : Byte; //Zur Namens - Bildauflösung B=11, D=12 K=13 Ass=1
            KartenTyp  : Byte; //Karo (1), Herz(2), Pik(3), Kreuz(4)
            end;

with Karte do begin
KartenName:= 'Karo Zwei';
KartenWert:=1;
KartenTyp:=1;
KartenZiffer:=2;
end;

Mit Record klappts übrigens wunderbar (zumindestens das with do)

[DeddyH]

Klassen (besser gesagt: Klasseninstanzen) muss man ja auch erst erzeugen.

[Lotus]

Das heißt ich muss nur einmal Karte.create aufrufen?

[mkinzler]

Nein Karte := TKarte.Create;

[DeddyH]

Einmal für jede Karte, die Du der Liste hinzufügen willst, ja.

[Lotus]

Es ist nicht nur eine Karte oO? Ich benutzte nur die eine Variable für alle Karten.. bei 52 Karten müsste ich ja sonst 52x Karte anlegen..

Ich hab jetzt mal probeweise zu der Objectlist 2 karten hinzugefügt.. hat auch geklappt

Delphi-Quellcode:

 ObjectList.Add(Player[i].HandKarte[1]);
    ObjectList.Add(Player[i].HandKarte[2]);

Aber nachdem ich das Programm geschlossen habe, kommt nen Fehler

Delphi-Quellcode:

procedure TForm1.FormDestroy(Sender: TObject);
begin
ObjectList.free;
end;

Zugriffsverletzung bei der Adresse 000000000 ... ich dachte das Freigeben muss man machen?

[DeddyH]

Stepp doch einfach mal durch und schau, wann der Fehler auftritt. Wir kennen ja nur Bruchteile des Codes, was sollen wir denn sagen?