Code in Konsole anders als in VCL?

**Flips**

Hi.

Ich habe folgenden Code um ein 52er Kartenspiel zu mischen.
Das Kartenspiel ist in einem 2-Dimensionalen Array. Die erste Dimension beschreibt die Farbe (Herz, Karo, Kreuz, Pik), die zweite Dimension den Wert (2-10,J,Q,K,A). Nach dem mischen werden die Karten wieder übereinander gelegt.
Der eigentliche Mischvorgang kommt danach, aber ich habe den Fehler auf diesen Abschnitt begrenzen können.
Und zwar auf die repeat-until schleife.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure ShuffleCards;

var

  i,j,akt: Integer;

  wert,farbe:integer;

begin

akt := 1;

for i := 1 to 13 do   //13 Werte

  for j := 1 to 4 do  //4 Farben

     begin

      repeat

{Mir ist klar das hier nie 13 oder 4 rauskommen wird, die Enumeration mit den  Werten/Farben beginnt ja auch wie ein Array bei 0, daher dürfte das so stimmen}

        wert  := random(13);  

        farbe := random(4);

      until (FKarten[farbe][wert].Chosen = false);

      //Karte als genommen markieren

      FKarten[farbe][wert].Chosen := true;

      //Karte ins Deck legen

      FDeck[akt].Wert := TWert(wert);

      FDeck[akt].Farbe := TFarbe(farbe);

      inc(akt);

    end;

end;

In der Konsole funktioniert dieser Code perfekt, in eine VCL-Anwendung eingebunden friert alles ein...
Wisst ihr wieso???

Thx,
Flips

Code in Konsole anders als in VCL?

Code in Konsole anders als in VCL?

Forumregeln