Bubble Sort Schleifentyp umändern aber wie ?

[Wolfgang Mix]

while:

Delphi-Quellcode:

zaehler:=anfangswert;
while zaehler <= endwert do
begin
  ...
  inc(zaehler);
end;

repeat:

Delphi-Quellcode:

zaehler:=anfangswert;
repeat
  ...
  inc(zaehler); 
until zaehler=endwert;

for - downto genauso, dann eben dec(zaehker)