wie fang ich das denn ab?
so sollte das doch funktionieren oder nicht?
Delphi-Quellcode:
procedure KarteGeben(var KartenName : String;var KartenWert:byte);
begin
if Stapel <>[] then begin
repeat
KartenWert := randomrange(Low(TKarten),High(TKarten));
until KartenWert in Stapel;
KartenName := cKartenName[KartenWert];
Stapel := Stapel - [KartenWert];
end;
end;