Operator in If Then Anweisung als Variable möglich ?

[gemy]

Servus,

habe das nun so zum laufen bekommen.

Dürfte Korrekt sein oder :

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 type TValueRelationship = (less, equal, greater);
var

  Form1: TForm1;
  tvaluerset : set of TValueRelationship;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a,b : currency;
var c: integer;
begin
tvaluerset:= [greater];
a:= 30;
b:= 20.508494094;
if  TValueRelationship((CompareValue(a, b) +1)) in tvaluerset then showmessage('test');
end;

end.

Aber beim experimentieren ist mir aufgefallen :
Man könnte doch einfach auch so schreiben :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a,b : currency;
var c: integer;
begin
c :=1;     // 0 1 oder 2
a:= 30;
b:= 20.508494094;
if  (CompareValue(a, b) +1) = c then showmessage('test');
end;

Danke für eure Antworten, woher kennt man eigentlich Typen wie TValueRelationship ? Es gibt doch soviele hunderte Typen...