Wenn es hier um "einfach aber langsam" geht, hab ich auch noch einen
Delphi-Quellcode:
procedure InsertSort (var A: TVek);
var
I, J: integer;
T: double;
begin
for I:= 1 to Length(A) - 1 do
for J:= I downto 1 do
if A[J - 1] > A[J] then
begin
T:= A[I];
A[I]:= A[J];
A[J]:= T;
end;
end;
Aber unter XE ist das ja alles nicht mehr nötig:
Delphi-Quellcode:
uses
Generics.Collections;
...
TArray.Sort<Double>(A);