Hallo,
habe deinen Code kurz überflogen und folgendes ist mir auf die Schnelle aufgefallen:
Zitat: |
for i:=1 to 2 do
begin
randomize;
|
Randomize darfst du nur einmal aufrufen, niemals nich in Schleifen, schau Dir die Onlinehilfe dazu an.
Zitat: |
repeat
Zufallszahl1:=random(maxzeile);
Zufallszahl2:=random(maxspalte);
until not hilfe;
|
die Schleife ist unnützt, da du Hilfe nur weiter oben einmal setzt (und das glücklicherweise mit false), du mußt ja auch in dieser Schleife prüfen, ob das Feld schon gesetzt ist.
random(maxzeile) liefert dir aber auch nur Zahlen zwischen 0 und maxzeile-1 zurück das wird auch nicht gehen
Mfg Frank