kleine Anfängerfrage

[himitsu]

Einen riesen Random warum erscheint das Rechteck nicht sonstwo und !! viel schlimmer das Rechteck springt überhaupt nicht weg wenn ich es berühre!! :/[/QUOTE]

Random ?
- ohne Parameter: 0 <= Result < 1 (von 0 bis 0.9999999)
- mit Parameter: 0 <= Result < Parameter (von 0 bis Parameter-1)
und was +1 macht müßte ja klar sein.

Zitat:

Random(4000)

Wir groß ist dein Formular, bzw. dein Monitor?
(ob dort 4000 Punkte nebeneinander draufpassen )


Geh mal deine Prozedur duch und schau was jeweils passiert.
- wann werden die Variablen gesetzt und was wird wo hingemalt

Delphi-Quellcode:

begin
  Button1.Visible := False;
  Canvas.Brush.Color := clRed;
  Canvas.Rectangle(MannX, MannY, MannX + 50, MannY + 50);
  Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50);
  if TRUE then
  begin
    JagdX := Random(4000) + 1;
    JagdY := Random(4000) + 1;
  end else begin
    //Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50);
  end;
end;

Delphi-Quellcode:

begin
  Button1.Visible := False;
  Canvas.Brush.Color := clRed;
  Canvas.Rectangle(MannX, MannY, MannX + 50, MannY + 50);
  Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50);
  if FALSE then
  begin
    //JagdX := Random(4000) + 1;
    //JagdY := Random(4000) + 1;
  end else begin
    Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50);
  end;
end;