TArray.Sort sortieren von mehreren Feldern

[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.

[himitsu]

Standardmäßig sind die Überlaufprüfungen deaktiviert, aber wenn das mal wer in den Projektoptionen aktiviert, zwecks Fehlersuche, dann knallt es halt an vielen Stellen.

Hier sollte man diese Prüfung eben explizit um diese Codestelle deaktivieren, da der Überlauf ja quasi gewollt ist.
Oder man verwendet Code ohne Überlauf.

Die Auswertungen für diese Vergleichsergebnisse vergleichen extra ausschließlich gegen 0 und nicht geziehlt auf -1 und +1.
Drum gehen da auch Werte außerhalb dieses Bereichs.

Delphi-Quellcode:

function CompareValue(const A, B: Irgendwas): TValueRelationship{Integer};
begin
  if A = B then
    Result := EqualsValue
  else if A < B then
    Result := LessThanValue
  else
    Result := GreaterThanValue;
end;

Delphi-Quellcode:

function CompareValue(const A, B: Irgendwas): Integer;
begin
  Result := B - A;
end;