Hallo,
habe da ein kleines Problem. Ich schreibe zur Zeit für den Unterricht an einem kleinen Black Jack (17&4) Programm und es klappt auch alles, bis auf die Überprüfung, dass auf dem Tsch verschiedene Karten liegen.
Also möchte ich die 15 Variablen "Karte1...Karte15" auf ihre Ungleichheit prüfen.
Diese sind vorher durch die Funktion:
Code:
function Zufallskarte(Von, Bis: Integer): Integer;
begin
Result := Random(Succ(Bis - Von)) + Von;
end;
ermittelt worden.
Wie kann ich das hinbekommen ohne jede Variable einzeln auf Karte1<>Karte2 usw. zu überprüfen? Und danach, falls eine gleiche dabei ist, eine neue Auswählen, die nochmal darauf geprüft wird?
Danke schonmal Tom