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

[engine]

Hallo DP,

ich muss einen Radius mit einer Werkzeugliste vergleichen.
Wenn der "Radius" nicht in der Liste vorhanden ist, soll ein Fehler ausgegeben werden.
Zur Zeit verwende ich diesen Code.

Delphi-Quellcode:

var
  Radius : extended;
.
.
.

Radius := StrToFloat(Form1.StringGrid1.Cells[4, i]); 
if Radius <> 3.4 then
  if Radius <> 4.25 then
    if Radius <> 5.1 then
      if Radius <> 6 then
        if Radius <> 7 then
          if Radius <> 8.75 then
            if Radius <> 10.5 then
              if Radius <> 13.25 then
                if Radius <> 16 then
                begin
                  Form1.StringGrid1.Cells[9, i] := 'ERROR';
                end;

Der Code funktioniert, die Schreibweise gefällt mir jedoch nicht.
Ich suche eher etwas wie

Delphi-Quellcode:

if not (Radius in [1,2,3]) then ...

Habt ihr eine Idee wie der Code vereinfacht werden kann?

[Hansa]

Das ist "Case". -> OH

[JasonDX]

Zitat:

Zitat von Hansa

Das ist "Case". -> OH

Case funktioniert auch nur mit ordinalen Typen, also nicht mit beispielsweise strings oder floats (=reals)

Was du (mal ganz spezifisch den fall betrachtet) tun könntest wäre folgendes:
statt

Delphi-Quellcode:

Radius := StrToFloat(Form1.StringGrid1.Cells[4, i]); 
if Radius <> 3.4 then 
  if Radius <> 4.25 then 
    if Radius <> 5.1 then 
      if Radius <> 6 then 
        if Radius <> 7 then 
          if Radius <> 8.75 then 
            if Radius <> 10.5 then 
              if Radius <> 13.25 then 
                if Radius <> 16 then 
                begin 
                  Form1.StringGrid1.Cells[9, i] := 'ERROR'; 
                end;

dasda

Delphi-Quellcode:

Radius: integer;
Radius := round(StrToFloat(Form1.StringGrid1.Cells[4, i]) * 100); 
if not (Radius in [340, 425, 510, 600, 700, 875, 1050, 1325, 1600]) then
  Form1.StringGrid1.Cells[9, i] := 'ERROR';

schreiben

Oder du schreibst dir eine Funktion:

Delphi-Quellcode:

function IsWertIn(Wert: extended; Werte: array of extended): boolean;
begin
  result := true;
  for i := 0 to high(Werte) do
    if Wert = Werte[i] then //vorsicht hier: extendeds vergleichen sollte man nicht, sondern mit einer abweichung von +/- 0.josef vergleichen
      exit;
  result := false;
end;

[engine]

Zitat:

Zitat von Hansa

Das ist "Case". -> OH

Ja, "Case" funktioniert prima mit Ordinale Typen, aber nicht mit "extended".

[engine]

Delphi-Quellcode:

Radius: integer;
Radius := round(StrToFloat(Form1.StringGrid1.Cells[4, i]) * 100); 
if not (Radius in [340, 425, 510, 600, 700, 875, 1050, 1325, 1600]) then
  Form1.StringGrid1.Cells[9, i] := 'ERROR';

Das sieht gut aus...

Danke

[DGL-luke]

Zitat:

+/- 0.josef

AHA?! :gruebel:
also wenn du +/-.adolf geschrieben hättest, würd ich mir ja sorgen um dich machen, Chimaira, aber so hab ich einfach null ahung, was du meinst....

[Nicodius]

wen ner aus österreich kommt hats ne bedeutung :)


sagt man so 0 komma josef ;)

[leddl]

Er hätte auch +/- 0.x schreiben können. Hauptsache, du gibst ein bestimmtes Intervall an, in dem sich die Werte befinden müssen.

[DGL-luke]

ah sehr schön. muss ich doch noch ne fremdsprache lernen. :lol:

[Nicodius]

abseits noch ne frage


ordinal und primitiv ist dasselbe oder?