Dynamisches Array

[Lotus]

@Detlef
Compilieren tut er es, aber die Laenge des Arrays bleibt seltsamerweise auf 0.. warum?

Das mit der Objectlist werde ich mal ausprobieren... ich scheu mich vor neuen Sachen ein bisschen *shy*

[DeddyH]

Woher soll ich denn wissen, warum? Wie rufst Du die Prozedur denn auf?

[Lotus]

cardToArray(karte,KartenGezogen); und KartenGezogen ist vom Typ TKartenArray

[DeddyH]

Bist Du einmal mit dem Debugger durchgesteppt? Wird die Prozedur auch wirklich durchlaufen?

[Lotus]

Ich hab ne Showmessage in der Procedure drin (steht in dem Forumpost hier nicht drin) und diese gibt mir die Länge an

Delphi-Quellcode:

laenge:=length(KartenArray);
showmessage(inttostr(laenge));

Da das ganze 6x aufgerufen wird, bin ich sicher das die Procedure durchlaufen wird
Debugger wird also nichts finden..

Ich wollte das jetzt mal mit der TObjectlist machen.. aber ich hab noch recht wenig Erfahrung mit OOP.. die Liste createn hab ich ja geschafft, aber wenn ich jetzt was dazufügen will, brauch ich ja nen Object! Wie mache ich jetzt aus meiner TKarte ein Objekt? Oder anders gefragt, wie füge ich die TKarte in die ObjectList?

[DeddyH]

Du musst in Zeile 43 aus record class machen

[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)