repeat-until ersetzten durch if/for/while

[Thorben86]

Hi, ich hab ein Probelm, und zwar hab ich ne repeat until schleife (s.u.) darf die jedoch nicht benutzten, da wir die in der schule noch nicht hatten und keine sachen mit reinbringen dürfen, die wir noch nicht hatten, da die schwächeren schüler sonst angeblich nicht mitkommen würden.(und das nach über nem 1/2 schuljahr delphi, wobei der andere kurs das chon lange hat.) wir dürfen eigentlich nur if-anweisungen, und for/while schleifen benutzen.

Mein Problem ist, dass mir gerade nicht eifällt, wie ich das mit den 3 "schleifen" hinkrieg. In nen timer will ich es nicht baun, weil ich nach der einen schleife das ganz nochmal mit anderen labels machen will und dann bräuchte ich verdammt viele Timer.

Delphi-Quellcode:

repeat
c := ColorToRGB(l_rahmenprogramm.Font.Color);
if GetRValue(c) > 0 then r := GetRValue(c)-1;
if GetGValue(c) > 0 then g := GetGValue(c)-1;
if GetBValue(c) > 0 then b := GetBValue(c)-1;
l_rahmenprogramm.Font.Color:=rgb(r,b,g);
l_rahmenprogramm.Refresh;
sleep(1);
until (r=0) or (g=0) or (b=0);