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?