Custom Sort - CompareItems mit Boolean

[alzaimar]

Zitat von NamenLozer:

Da geh ich dann doch lieber auf Nummer Sicher und nutze meine Methode

Is aber unübersichtlich und langsam(er), dann lieber so:

Delphi-Quellcode:

Function CompareBoolean (a,b : Boolean) : Integer;
Begin
  Result  := ord(a) - ord(b);
End;

oder so:

Delphi-Quellcode:

Function CompareBoolean (a,b : Boolean) : Integer;
Const
  BoolOrder : Array [False..True] Of Integer = (0,1); // Oder 1,0 wenn man andersherum sortieren will
Begin
  Result  := BoolOrder[a] - BoolOrder[b];
End;