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...