Zitat von
TomDooley:
Nun möchte ich prüfen ob ein Integer einen Wert der Menge angenommen hat:
if (MyInteger in MyMenge) then...
Leider funktioniert das nicht.
Hallo Tom,
Ich hatte ein ähnliches Problem und habe es so gelöst.
Delphi-Quellcode:
function IfFloatIn(w : extended; a : array of extended; Tol: extended): boolean;
var
i : integer;
begin
result := true;
for i := 0 to high(a) do
if SameValue(w, a[i], Tol) then exit;
result := false;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
var
Radius : extended;
begin
Radius := StrToFloat(Edit1.Text);
if IfFloatIn(Radius,[10.5, 11.7, 17.8],0)
then Label1.Caption := 'true'
else Label1.Caption := 'false';
end;
Das sollte sich auch leicht auf integer Typen umstricken lassen.
Siehe auch
DP