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.