Kann man nicht das ganze mit nur einer Schleife lösen?
Delphi-Quellcode:
while R<> 0 do
begin
if R>2 then
begin
listbox.Add ...;
R=R-2;
end
else if R>1 then
begin
listbox.Add ...;
R=R-1;
end
else if ...
end
Mach den Code jetzt auch nicht schöner, aber man hat nur eine Schleife...
Oder hab ich da jetzt einen Denkfehler drin?