TArray.Sort sortieren von mehreren Feldern

[Kostas]

Hallo Zusammen,

zum sortieren von Arrays verwende ich gerne die Methode TArray.Sort.
Jetzt habe ich eine Anforderung, innerhalb des Feldes "id" zusätzlich nach einem weiteren Feld "id2" zu sortieren.

Mein Record beinhaltet also id,id2:integer. Es soll zuerst nach id und bei gleicher id nach id2 sortieren.

Ist das mit TArray.Sort möglich?

Delphi-Quellcode:

  TArray.Sort<TNeuTblRecord>( NeuTblArray , TDelegatedComparer<TNeuTblRecord>.Construct(
    function(const Left, Right: TNeuTblRecord): Integer
      begin
        Result := (Left.id - Right.id);
        if Result = 0 then
          Result := Left.id - Right.id;

      end)
  );

Gruß Kostas

[DeddyH]

Natürlich, ersetz einfach in der "innersten" Zeile id durch id2 (für beide Records).

[Kostas]

Etwa so?

Delphi-Quellcode:

TArray.Sort<TNeuTblRecord>( NeuTblArray , TDelegatedComparer<TNeuTblRecord>.Construct(
     function(const Left, Right: TNeuTblRecord): Integer
       begin
         Result := (Left.id - Right.id);
         if Result = 0 then
           Result := Left.id2 - Right.id2;

       end)
   );

In meinem Beispiel funktioniert es aber ich habe testweise nur wenig Daten.
Gruß Kostas

[DeddyH]

Das sollte auch mit sehr vielen Daten funktionieren.

[Kostas]

Ok, herzlichen Dank für die Hilfe.
Eigentlich habe ich nicht verstanden warum es funktioniert ab erst einmal Egal.
Ich brauche es zwar nicht, aber gibt es eine Möglichkeit die Sortierrichtung für id und id2 jeweils zu setzen?

Gruß Kostas

[DeddyH]

Die Richtung wird dadurch bestimmt, ob du "rechts" von "links" subtrahierst oder andersherum.

[Kostas]

Perfekt, herzlichen Dank und eine schöne Zeit.

[himitsu]

Die Summierung macht nicht anderes, als die 3 Werte für die Vergleichrichtung zu errechnen. (-1, 0 und +1, bzw. <0 =0 und >0)

Man kann stattdessen auch die entsprechenden Vergleichsfunktionen verwenden.
CompareValue, CompareStr usw.

Zitat von Types.pas:

Delphi-Quellcode:

type
  TValueRelationship = -1..1;

const
  LessThanValue = Low(TValueRelationship);
  EqualsValue = 0;
  GreaterThanValue = High(TValueRelationship);

[Kostas]

ah, jetzt ist das Prinzip klar.

Besten Dank für die Hilfe und einen schönen Tag.

Gruß Kostas

[Stevie]

Bitte keine Werte durch Subtraktion vergleichen.

Erstens sorgt es dafür, dass die Ergebnismenge nicht nur im Bereich -1..1 liegt und zweitens hagelts bei bestimmten Zahlenkombinationen einen Overflow.