kleine Anfängerfrage

[himitsu]

Zitat:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Visible := false;
Canvas.Brush.Color := clred;
Form1.Canvas.Rectangle(MannX,MannY,MannX+50,MannY+50);  // 1
Form1.Canvas.Rectangle(JagdX,JagdY,JagdX+50,JagdY+50);  // 2
  if (MannX + 50 > JagdX) and (MannX < JagdX + 50) and (MannY + 50 > JagdY) and (MannY < JagdY+50) then
  begin
    JagdX := Random(4000) + 1;
    JagdY := Random(4000) + 1;
    Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50); // 3
  end;
end;

Es werden ja auch 3 Quadrate gezeichnet.
Aber das kann man ändern, indem man entweder das Eine oder das Andere zeichnet.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Visible := False;
  Canvas.Brush.Color := clRed;
  Canvas.Rectangle(MannX, MannY, MannX + 50, MannY + 50); // 1
  if (MannX + 50 > JagdX) and (MannX < JagdX + 50) and (MannY + 50 > JagdY) and (MannY < JagdY+50) then
  begin
    JagdX := Random(4000) + 1;
    JagdY := Random(4000) + 1;
    Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50); // 3
  end else begin
    Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50); // 2
  end;
end;

Oder Beides zusammenlegt, da der Code ja gleich ist.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Visible := False;
  Canvas.Brush.Color := clRed;
  Canvas.Rectangle(MannX, MannY, MannX + 50, MannY + 50); // 1
  if (MannX + 50 > JagdX) and (MannX < JagdX + 50) and (MannY + 50 > JagdY) and (MannY < JagdY+50) then
  begin
    JagdX := Random(4000) + 1;
    JagdY := Random(4000) + 1;
  end;
  Canvas.Rectangle(JagdX, JagdY, JagdX + 50, JagdY + 50); // 2+3
end;