repeat-until ersetzten durch if/for/while

[dizzy]

Zitat von Thorben86:

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);

der Code kommt mir irgendwie bekannt vor...



@himitsu: r, g und b sind sicherlich mit 0 initialisiert


gruss,
dizzy

\edit: btw: das or ist in der Bedingung auch beim repeat..until falsch. Du willst ja sicherlich ein Label nach schwarz faden, gell!? Dann müssen erst ALLE Farbanteile 0 werden. Dann erst ist's wirklich schwarz. Also statt or auch hier and nehmen!