Tweet
Das Programm ist ziemlich simpel es soll anhand einer Abfrage geklärt<BR> werden ob ein eingegebener Wert innerhalb eines bestimmten Intervalls ist. <BR>Falls er auserhalb des Intervalls ist soll das Eingabefeld die Farbe <BR>wechseln.
Der Code funktioniert aber nicht richtig da die Grenzen des Intervalls <BR>nicht richtig erkannt werden. Wenn man einen Grenzwert(50e-3 oder 500e-9) eingibt, <BR> verhält sich das Programm so als ob es auserhalb des Intervalls wäre. <BR> Probiert es selber aus. Ihr braucht nur einen Button und ein TEdit. Hier <BR> ist der Code:
<PRE><CODE>
procedure TForm1.Button1Click(Sender: TObject);
var
value: Double;
begin
value:= StrToFloat(Edit1.Text);
If (value<=50e-3) and (value>=500e-9) then
Edit1.Color:= clLime //Wert innerhalb des Intervalls
else
Edit1.Color:= clRed; //Wert auserhalb des Intervalls
end;
end.
</PRE></CODE>
Der Code funktioniert aber nicht richtig da die Grenzen des Intervalls <BR>nicht richtig erkannt werden. Wenn man einen Grenzwert(50e-3 oder 500e-9) eingibt, <BR> verhält sich das Programm so als ob es auserhalb des Intervalls wäre. <BR> Probiert es selber aus. Ihr braucht nur einen Button und ein TEdit. Hier <BR> ist der Code:
<PRE><CODE>
procedure TForm1.Button1Click(Sender: TObject);
var
value: Double;
begin
value:= StrToFloat(Edit1.Text);
If (value<=50e-3) and (value>=500e-9) then
Edit1.Color:= clLime //Wert innerhalb des Intervalls
else
Edit1.Color:= clRed; //Wert auserhalb des Intervalls
end;
end.
</PRE></CODE>
Comment