Custom Sort - CompareItems mit Boolean

[ryLIX]

Hi ihr,
irgendwie steh ich grad voll auf dem Schlauch...

Delphi-Quellcode:

function TMyClass.CompareItems(Item1, Item2: Pointer): Integer;

Jetzt hab ich in meiner Klasse auch Felder vom Typ Boolean.
Wie kann ich nun nach Boolean Sortieren? :wiejetzt:
Sprich erst True dann False / vice versa

[Namenloser]

Wo ist das Problem? Das ist doch dir überlassen, wie du deine Items sortierst. Ich würde einfach False < True verwenden, da False als 0 und True als 1 deklariert ist, und 0 < 1 ist.

Delphi-Quellcode:

if TMyItem(Item1).MyBool = TMyItem(Item2).MyBool then
  Result := 0
else if TMyItem(Item1).MyBool and not TMyItem(Item2).MyBool then
  Result := 1
else{ if not TMyItem(Item1).MyBool and TMyItem(Item2).MyBool then}
  Result := -1

Ich weiß jetzt nicht, ob 1 und -1 stimmt, vielleicht muss es auch andersrum sein, um meiner oben genannten Sortierlogik zu entsprechen - ich verwechsel immer, wofür positiv und negativ beim Sortieren steht.

[Panthrax]

Delphi-Quellcode:

function Compare(const Left, Right: T): Integer;
begin
  Result := Integer(Left.BooleanValue) - Integer(Right.BooleanValue); // False < True
end;

Hinweis: True ist nicht immer gleich True. Es kann unterschiedlich definiert sein (Boolean, ByteBool, WordBool,... in C, oder etwa bei Datenbanken). Einmal sei True = -1, ein andermal sei True = 1, dann ergeben sich für Cardinal(True), Integer(True) andere Werte, und dehen ggf. die Relation False < True um. Vielleicht hilft es Integer(Boolean(...)) zu schreiben (?).

[Namenloser]

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

[alzaimar]

Zitat:

Zitat von NamenLozer

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

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;

[ryLIX]

Danke für eure Hilfe nun sollte es klappen :dp:

[DeddyH]

Statt

Zitat:

Delphi-Quellcode:

BoolOrder : Array [False..True] Of Integer =  (0,1);

würde ich aber gleich

Delphi-Quellcode:

BoolOrder : Array [Boolean] Of Integer =  (0,1);

schreiben.