Hallo,

ich würde gern mein Array sortieren :

markieren

Delphi-Quellcode:

type
  arrRec = record
    flag : integer;
    title,
    description : string;
  end;

var
  arr_data : array[1..10] of arrrec;

allerdings will ich nach 2 Werte sortieren:

Primär "flag" und secondär "title"!

Bestes Beispiel wie die SQL-Anweisung :
... ORDER BY flag,title ASC Kennt jemand eine fertige gute Funktion bzw. Algo dafür???

MfG

Sortieralgorithmen gibt's ja genug... sortier einmal nach "flag" und alle gleichen flags nochmal nach "title".

Dust Signs

zusammenfalten · markieren

Delphi-Quellcode:

procedure DOQuickSort(X: array of Integer);
  procedure QuickSort(var A: array of Integer; iLo, iHi: Integer);
  var
    Lo, Hi : Integer;
    Mid, T : Integer; //angleichen
  begin
    Lo := iLo;
    Hi := iHi;
    Mid := A[(Lo + Hi) div 2];
    repeat
      while A[Lo] < Mid do
        Inc(Lo);
      while A[Hi] > Mid do
        Dec(Hi);
      if Lo <= Hi then
      begin
        T := A[Lo];
        A[Lo] := A[Hi];
        A[Hi] := T;
        Inc(Lo);
        Dec(Hi);
      end;
    until Lo > Hi;
    if Hi > iLo then QuickSort(A, iLo, Hi);
    if Lo < iHi then QuickSort(A, Lo, iHi);
  end;
begin
  QuickSort(x, Low(x), High(x));
end;

Die Routine einfach angleichen. ist eigendlich eine recht schnelle.
Sollte damit keine probleme geben.

danke,

aber ich hab das problem mit dem RECORDS. da sehe ich nicht durch.

wie kann ich denn ein array-eintrag der ein record hat mit einem anderen tauschen???

Zitat von TriphunEM:

wie kann ich denn ein array-eintrag der ein record hat mit einem anderen tauschen???

Wieso sollte das in irgendeiner Form anders sein als ein "herkömmlicher" Tausch?

Dust Signs