Operator in If Then Anweisung als Variable möglich ?

[gemy]

Ah ich glaub ich habe eine Lösung gerade auf dem Klo erdacht.

Ich baue mir eine Funktion

EIngangswerte:
var a,b : integer;
var c: boolean;
a:= 20;
b:= 30;
c:= bool(random(1));

Delphi-Quellcode:

function ifThen(val1, val2: integer; val3: boolean): boolean;
begin
 case val3:
  true: if val1 > val2 then result := true else result := false;
  false: if val1 < val2 then result := false else result := true;
end;
end;