dann noch ne If abfrage, die so aussieht ?
if x:= +1 = true then richtung :=(Random(BSB);
if y:= +1 = true then richtung _=(Random(HSB);
tut mir leid, sonst lass ich das programm einfach liegen und probiers morgen nochmal, sitze heute seit 8 Uhr daran !
Ist dir die Delphi-Syntax geläufig?
Eine einzige if-Abfrage reicht nicht, da die neu ermittelte Richtung wieder ungültig sein kann.
Daher musst du das mit einer Schleife lösen. In dem Fall bietet sich eine Repeat-Schleife an, da du die Richtung mind. 1 mal ermitteln musst.
Sinngemäß so:
Delphi-Quellcode:
repeat
// zufällige Richtung bestimmen
until
// richtung gültig