is not a valid floating point value - okreslenie poprawnego warunku

0

Pisze prosty kalkulator i chcę stworzyć komunikat, który pokazywał by użytkownikowi, że nacisnął klawisz działania przed wprowadzeniem liczby. Bez takiego zabezpieczenia w programie pojawia się błąd. Oto błąd, który się wyświetla kiedy wykorzystuję moją formułę i początkowo naciskam klawisz działania.
is not a valid floating point valve
Oto kod

procedure TForm1.Button12Click(Sender: TObject);
begin
if edit1.text<>' ' then
begin
a:=StrToFloat(edit1.text);
b:=2;
edit1.Text:=' '
end
else ShowMessage('kiszka');
end;
0

Poczytaj o Val.

0

... oraz o

TryStrToFloat

1 użytkowników online, w tym zalogowanych: 0, gości: 1