Integers sortieren funktioniert nicht

[DeddyH]

Da steht ja 2 mal das Gleiche:

Zitat:

Delphi-Quellcode:

  if Result <> 0 then
  begin
    if d1 < d2 then
      Result := -1
    else if d1 > d2 then
      Result := 1
    else
     Result := 0;
  end

In der absteigenden Reihenfolge musst Du natürlich noch negieren (Vorzeichen umdrehen).