Zitat von
finalgott:
Ich habe da ein Problem beim auslesen der Punkte von einem Rechteck.
Wenn ich ein oder mehrere Rechtecke per Randomize erstelle..
Und mir die lage der/des Punktes, und die Lage von wight und height ausgeben lasse
passiert folgendes:
Das Rechteck wird mal von oben-links nach rechts-unten "aufgezogen" und mal von rechts-unten nach oben-links...usw.
Das ist doch kein Problem !
Du hast zwei X-Koordinaten und zwei Y-Koordinaten.
Delphi-Quellcode:
procedure SwapInteger(var a, b : Integer); // Hilfsfunktion
var
t : Integer;
begin
t := a;
a := b;
b := t;
end;
.....
x1:=random(200);
y1:=x1;
x2:=random(200);
y2:=x2 div 2;
if x1 > x2 then
SwapInteger(x1, x2); // Tausche X-Koordinaten
if y2 > y1 then
SwapInteger(y1, y2);