Operator in If Then Anweisung als Variable möglich ?

[himitsu]

Delphi-Quellcode:

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

so lange es kein <= und >= gibt, also nur <, > oder =

Delphi-Quellcode:

uses System.Math;

var EineVariable: TValueRelationship;

EineVariable := LessThanValue;  // -1, 0 oder +1, bzw. die Konstanten
if CompareValue(A, B) = EineVariable then ...

Oder man könnte es auch als SET machen,

Delphi-Quellcode:

var EineVariable: set of TValueRelationship;  // set of -1..1;

EineVariable := [0, 1];  // -1, 0 und/oder +1
if CompareValue(A, B) in EineVariable then ...

aber weil Enum und Negativ sich nicht mag

Delphi-Quellcode:

var EineVariable: set of 0..2;

EineVariable := [1, 2];  // 0, 1 und/oder 2
if (CompareValue(A, B) + 1) in EineVariable then ...