Delphi-PRAXiS - Delphi Zufallsvariable muss durch x teilbar sein, möglich?

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Zufallsvariable muss durch x teilbar sein, möglich? (https://www.delphipraxis.net/125419-zufallsvariable-muss-durch-x-teilbar-sein-moeglich.html)

Zufallsvariable muss durch x teilbar sein, möglich?

Hallo

Ich lasse mit einem Timer ein Bild (Image1) nach oben bewegen auf ein anderes Bild (Image2) zu.
Image2.Left wird mit einer Zufallsvariable erstellt, Image2.Top mit einer anderen Zufallalsvariable.
Da sich aber das Image1.Top oder Image1.Left bei jedem Timerintervall um 28 vergrößert, und ich als Code

Delphi-Quellcode:

			If (Image1.Top=Image2.Top+28)

or (Image1.Top=Image2.Top-28) Then

begin

randomize;

a:=Random(362)+1;

b:=Random(434)+1;

Image2.Top:=a;

Image2.Left:=b;

end;

habe, passiert es häufig das kein neues Image2.Left und Image2.Top erstellt wird.
Kann ich entweder a und b so generiren lassen dass sie immer in einem Fleck darstellen, an dem auch Image1 genau daranpasst,
oder muss ich es anders machen??

Ich hoffe ihr habt mein Problem verstanden?!?!

Re: Zufallsvariable muss durch x teilbar sein, möglich?

Dein Problem habe ich nicht verstanden, aber wenn du eine Zufallszahl erstellen willst, die durch 28 teilbar ist, kannst du foo = random(10)*28 benutzen.
Damit bekommst du dann ein der Zahlen von 0, 28, ..., 252 (die obere grenze wird bei random glaube ich nie ausgegeben).

randomize muss auch nur ein Mal aufgerufen werden, z.B. wenn das Hauptformular erstellt wird.

Re: Zufallsvariable muss durch x teilbar sein, möglich?

Danke hat funktioniert :-D