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
if not (Radius in [1,2,3]) then ...
Habt ihr eine Idee wie der Code vereinfacht werden kann?