Joo, so isses mit dem repeat-until!
Zudem sei angemerkt, dass dieser Sortieralgorithmus recht langsam ist (was natürlich nur bei größeren Datenmengen ins Gewicht fällt). Ich möchte an dieser Stelle eine allgemeine SwapProcedur beisteuern:
Delphi-Quellcode:
procedure SwapVars(var a,b;nByte:Integer);
var Sou : Array[1..maxInt]of Byte absolute a;
Des : Array[1..maxInt]of Byte absolute b;
i : Integer;
t : Byte;
begin
for i:=1 to nByte do begin
t :=Sou[i];
Sou[i]:=Des[i];
Des[i]:=t;
end;
end;
Hiermit können Variablen beliebigen Typs vertauscht werden (vielleicht findet sich an dieser Stelle ein hilfreicher Geist, der diese Prozedur etwas in der Geschwindigkeit verbessern kann)
Gruß
