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

[Hansa]

Wandelt die Typen in integer etc. um und fertig. 8)

[alzaimar]

Das mit dem 'if r in [...]' klappt nicht unbedingt, weil ein Set nur Bytes (0..255) enthalten kann, jedenfalls bei D6.
Ein 'Case' würde gehen, ist aber unschön.
Bleibt noch die Funktion. Das finde ich am Elegantesten, weil man hier nicht nur auf Gleichheit abfragen kann (sollte man bei reelen Typen sowieso nicht, alter Hut).

[Nikolas]

zu 0.Josef:

Da gibts die nette Funktion IsEqual, der man zwei Werte übergibt, und die dann true zurückgibt, wenn sich die beiden Werte kaum unterscheiden.

[engine]

Zitat:

Zitat von alzaimar

Das mit dem 'if r in [...]' klappt nicht unbedingt, weil ein Set nur Bytes (0..255) enthalten kann, jedenfalls bei D6.

Nicht nur bei D6...
Eine Funktion wird wohl die einzige Möglichkeit bleiben. Jedoch bleibt noch das Problem
mit dem Vergleichen. In meinem speziellen Fall sind keine +/- Abweichungen möglich.
Das bedeutet das ein Wert von 10.4999999999999.... (10.5) herausgefiltert werden muss.

[Nikolas]

Hast du meinen Post gesehen? Alternativ geht auch isZero;

Versuch mal

Delphi-Quellcode:

 
uses Math;

if IsZero(15-14.999999999999999999999) then showmessage('Hallo Welt');

[engine]

Ja, zu spät...

Mit "IsZero" kann man eine Funktion bauen.
Hab ich gerade schon ausprobiert.

Super!

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