Forum: Object-Pascal / Delphi-Language
Delphi
by Skritek,
22. Apr 2013
Also habe jetzt auf jeden fall schon mal gefunden, dass er 5 karten zu wenig durchsucht hat, aber den rest nicht ...
Forum: Object-Pascal / Delphi-Language
Delphi
by Skritek,
22. Apr 2013
Also, das sieht dann jetzt so aus:
function Zufallskarte(Von, Bis: Integer): Integer;
var
i,i2: byte;
Karte: array of Integer;
begin
Result := Random(Succ(Bis - Von)) + Von;
Forum: Object-Pascal / Delphi-Language
Delphi
by Skritek,
22. Apr 2013
und in das (...) von Zufallskarte kommt dann was? Die Kartenvariable?! Also z.B. Karte1 ?
Forum: Object-Pascal / Delphi-Language
Delphi
by Skritek,
22. Apr 2013
Wie kann ich denn eine Variable, die zZ. noch keinen Wert hat in einen String umwandeln, der in einem Array verwendet werden kann ?
Kannst du mir das nicht eventuell am Quellcode zeigen?
Könnte das nicht eventuell so aussehen ?
function Zufallskarte(Von, Bis: Integer): Integer;
var
i,i2: byte;
variabelspeicher: array of string;
Forum: Object-Pascal / Delphi-Language
Delphi
by Skritek,
22. Apr 2013
Okay,
und wie genau ? :)
Sorry, Arrays hatten wir noch nicht ...
Forum: Object-Pascal / Delphi-Language
Delphi
by Skritek,
22. Apr 2013
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:
function Zufallskarte(Von, Bis: Integer):...