repeat-until ersetzten durch if/for/while

[himitsu]

Zitat von dizzy:

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

genau da ist ja das Problem bei der While-Schleife

Delphi-Quellcode:

while (r<>0) and (g<>0) and (b<>0) 
do  begin 
...

denn wenn die Variablen nul sind, was ja rein zufällig auch der Abbruchbedingung entspricht, dann wird nämlich die Schleiche nie durchaufen, da While ja vor'm Durchlauf und nicht danach auswertet.