If not XY in [...] mit reellen Typen

[engine]

So, für alle die auch eine Funktion zum Vergleichen einer Reellen Zahl mit einer Werte-Liste benötigen; hier die Lösung...

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;

Mit "Tol" kann eine Toleranz angegeben werden, innerhalb sich der Wert befinden darf.


Danke an alle, die sich an diesem Tread beteiligt haben.