dann halt If-Abfragen xD
Ja, genau
ich versuchs gleich
Dankeschön =)
(wsl werd ich in 10 minuten wieder ein problem haben
aber mal sehen)
edit:
(danke fürs verschieben
)
ähm, ja, ich habs gewusst das ich nochmal was fragen muss xD
bin jetzt soweit:
Delphi-Quellcode:
...
procedure TForm1.FormCreate(Sender: TObject);
var
lauf: byte;
zufall: byte;
begin
Label5.caption := '';
Label6.caption := '';
Button1.Visible := true;
[...]
Button16.Visible := true;
karte[1] := 0;
karte[2] := 0;
karte[3] := 0;
karte[4] := 0;
karte[5] := 0;
karte[6] := 0;
karte[7] := 0;
karte[8] := 0;
karte[9] := 0;
karte[10] := 0;
karte[11] := 0;
karte[12] := 0;
karte[13] := 0;
karte[14] := 0;
karte[15] := 0;
karte[16] := 0;
for lauf := 1 to 16 do
begin
randomize;
zufall := random(15)+1;
if karte[zufall] = 0 then
karte[zufall] := lauf
else
begin
randomize;
zufall := (random(15)+1);
karte[zufall] := lauf;
end;
end;
panel1.caption := inttostr(karte[1]);
[...]
panel16.caption := inttostr(karte[16]);
end;
aber ich weis hier ja wieder nicht, wieoft er jetzt prüfen muss.
weil er kann ja beim 2. mal random wieder eine karte erwischen die bereits belegt ist (und dann halt wieder und wieder
)
außerdem hab ich es gerade durchlaufen lassen...und irgendwie schreibt er immer nur in ein zufälliges Panel die Zahl 16 rein, sonst ist überall 0...
(edit: dumme fehler^^)