repeat-until ersetzten durch if/for/while

[negaH]

Delphi-Quellcode:

while true do
begin

  if r and g and b = 0 then break;
end;

Loop := True;
while Loop do
begin

  Loop := r and g and b <> 0;
end;

Nicht schön aber ersetzt ohne kompliziertes Nachdenken jede repeat until Schleife

Gruß Hagen