Sortere array

Der er et eks. med en QSort function du kan sakse

Hvor er der ??

sortere? Hvordan vil du sortere dem? Altså at den mindste værdi kommer i den første variable oder was?

I demos\Threads\ ligger der tre sort rutiner en QuickSort, BubbleSort og SelectionSort,  Søg og du skal finde.......

/Martin

Jeg vil gerne have tabellen sorteret alfabetisk.
Det skal være en 2D-tabel (tabel[][]), som skal sorteres, sådan så der først sorteres efter første kolonne, derefter efter anden o.s.v.

Ja ?, bogstaver kan du sortere med >< tegn i delphi

martinlind> Ja, det ved jeg, men der skal jo meget kode til, hvis jeg skal lave en sorteringsfunktion med det. Jeg er på udkig efter en simpel funktion, som kan sortere et array.

du kan bare stjæle sort metoden fra TList, og tilpasse den til dit behov

procedure Sort(var Tabel : array of string);

  procedure QuickSort(L, R: Integer);
  var
    I, J, P: Integer;
    T: string;
  begin
    repeat
      I := L;
      J := R;
      P := (L + R) shr 1;
      repeat
        while CompareText(Tabel[I], Tabel[P]) < 0 do Inc(I);
        while CompareText(Tabel[J], Tabel[P]) > 0 do Dec(J);
        if I <= J then
        begin
          T := Tabel[I];
          Tabel[I] := Tabel[J];
          Tabel[J] := T;
          Inc(I);
          Dec(J);
        end;
      until I > J;
      if L < J then QuickSort(L, J);
      L := I;
    until I >= R;
  end;

begin
  QuickSort(0, Length(Tabel));
end;

r.hegaard >> koden kunne du finde i demos\Threads som jeg skrev i mit første svar, så er det jo bare at kopiere og tilpasse som nico også har skrevet. "tingende laver jo ikke sig selv vel"