Sortierung eines RECORD-Arrays

[TriphunEM]

Hallo,

ich würde gern mein Array sortieren :

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 :

SQL-Code:

... ORDER BY flag,title ASC

Kennt jemand eine fertige gute Funktion bzw. Algo dafür???

MfG

[Dust Signs]

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

Dust Signs

[Zottel]

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.

[TriphunEM]

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???

[Dust Signs]

Zitat:

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