Edit!

[Abbatik]

Люди подскажите как можно проверить, что в Edit введено число???!

[kommunist]

if edit1.text = ' ' then ...

[_Dmitry]

try
  a:=StrToFloat(Edit1.Text);
except
  a:=0;
  ShowMessage('Ошибка');
end;

[AlDelta]

Вариант 1:
Разрешить ввод в Edit только цифр, разделителя, Enter'a и Delete с Backspace'ом

Вариант 2:
Используй функцию StrToFloatDef. Функция StrToFloatDef переводит строку в число, только в случае ошибки возвращает предопределенное значение.

s:=StrToFloatDef(str , 0)); // если перевод невозможен возвратится 0;

[Abbatik]

Спасибо большое!

[Abbatik]

А как сделать чтобы при неправильном вводе можно было ввести еще раз

procedure TForm1.Button1Click(Sender: TObject);
begin
s:=StrToFloatDef(edit1.Text , 0);
n:=round(s);
if n=0 then begin
Showmessage('Ошибка ввода!');
edit1.text:='';
 end;

label2.Visible:=true;
label3.Visible:=true;
end;

После проверки он просто идет дальше.

P.S. Простите что отвлекаю своими тупыми вопросами!

[AlDelta]

Отображай Label'ы только тогда когда будет правильный ввод в edit

procedure TForm1.Button1Click(Sender: TObject);
begin
s:=StrToFloatDef(edit1.Text , 0);
n:=round(s);
if n=0 then begin
Showmessage('Ошибка ввода!');
edit1.text:='';
 end
else
Begin
label2.Visible:=true;
label3.Visible:=true;
End;
end;

[dron-s]

а в чём проблемы разрешить вводить только цифры

  SetWindowLong(Edit1.Handle, GWL_STYLE,
    GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);

?