Darstellung im Maßstab

[nahpets]

Hallo,

Zitat von rajuneon:

Delphi-Quellcode:

 {auch im Timer}
if W > 601 then
begin
  darstfaktor := 1;
  repeat
    xx := round(x / 2);
    yy := round(y / 2);
  until W < 601;
end;

das kann doch nicht gehen.
W ist am Anfang > 601 und wird in der Schleife nicht geändert, wie soll da die Schleife beendet werden. W wird immer > 601 bleiben, so dass W < 601 nie erfüllt sein wird. Die Endebedingung müsste sich doch irgendwie aus xx und yy ergeben oder täusche ich mich da?