Memory für "Anfänger"

[Saul]

hm irgendwie haut das mit dem mischen nicht so ganz hin der legt manchen karten einfach dreimal aus und nicht nur zweimal.

Code:

  Bild: Array[1..3] of String;                                  //Bildernamen
  Platz: Array[1..6] of Integer;                                //Bildnummer
  Nummer: Array[1..6] of Integer; 
  Zufall: Integer;

Nummer muss doch ein Array sein, definiere ich ihn richtig?

Code:

  Anzahl:=6;

  randomize;                            // Zufallszahlengenerator aktivieren
    while Anzahl > 0 do                { Die Karten mischen }
    begin
      zufall := random(Anzahl)+1;       // eine Karte aus dem Stapel ziehen
      Nummer[Anzahl]:= Platz[zufall];   // und auf letzten freien Platz auslegen
      for k := zufall to Anzahl-1 do    // restliche Karten einen Platz nach vorn
      begin
          Platz[k] := Platz[k+1];
      end;
      Anzahl := Anzahl - 1;         // Der Stapel ist nun kleiner geworden
    end;