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;