Hallo,
ich wollte in einer Procedure einen Wert errechnen und wenn die Bedingung (0.85<Wert<1.15) nicht erfüllt ist, sollte eine Meldung kommen.
Leider funktioniert es nicht so, wie ich es mir gedacht habe.
Stimmt da etwas in der Anweisung nicht?
Delphi-Quellcode:
procedure TForm7.Button1Click(Sender: TObject);
begin
gain:=(foc1-foc2)/100;
Label13.Caption := FloatToStrF(gain, ffNumber, 8, 3);
if (0.85<gain) and (gain<1.15)
then
ShowMessage('Please Enter the Calculated Offset!');
end;
Danke für eure Hilfe.
Gruss
Matthias