nur einen bestimmten Bereich zulassen

[René]

Hallo, If x in einem Bereich von z.B -10 bis 99 then.. Wie geht das.Vielen Dank

[Karsten Gehm]

<pre>
<font size = 2>
case x of -10..99 : bla;
100..199 : blub;
end;
</font size>
</pre>
<p>
es dürfen beliebig viele Bereiche eingegeben werden.
Nach dem Bereich also z.B. -10..99 folgt immer ein Doppelpunkt, danach ein Befehl, dann das Semikolon. Dann entweder der nächste bereich, oder zum Abschluss des Case Bereichs das end...
Sollen mehre befehle dazwischen kann nach dem doppelpunkt auch ein begin stehen, dann muss eben vor den nächsten Bereich ein end

[Thomas Melchert]

<p>Hallo Rene,<br>
<br>
oder so: <b>if</b> x <b>in</b> [-10..99] <b>then</b> ...;<br>
<br>
Gruß Thomas</p&gt

[Thomas Melchert]

<p>Hallo Rene,<br>
<br>
oder so:<br>
<br>
if (x in [-10..99]) then ...;
<br>
Mit der Einschränkung: -255 < x < 255<br>
<br>
Gruß Thomas</p&gt

[Thomas Melchert]

<p>Hallo Rene,<br>
<br>
oder so:<br>
<br>
if (x in [-10..99]) then ...;
<br>
Mit der Einschränkung: -256 < x <= 255<br>
<br>
Gruß Thomas</p&gt

[René]

Was ist wenn x ein Gleitkommawert ist ? case Strtofloat(Edit1.Text) of
0.001..99.999 : Label1.Caption := 'Richtig' else Label1.Caption := 'Falsch';
Das geht so jedenfalls nicht. Dank

Hallo René

Versuchs mit
x := round(1000 * StrToFloat(Edit1.Text));
if x in [1..99999] then ....

MFG Uw

[Karsten Gehm]

Also wenn es denn so genau sein soll geht es auch mit
if (Strtofloat(Edit1.Text) > 0.001) AND (Strtofloat(Edit1.Text) < 99.999) then Label1.Caption := 'Richtig' else Label1.Caption := 'Falsch'