TEdit, как проверить что введено(число или текст).

[kReid]

Мне необходимо для корректной работы программы, чтобы в TEdit было введено только число(тип Real), каким способом я могу это проверить?

[maLoy*508]

разрешить вводить пользователю только числа и запятую(точку)

для этого

if key in ['0'..'9',#8 ,#44 ,#46] then
 begin
  if key = #46 then key := #44;
 end
 else
  begin
   showmessage('При вводе объема используйте только цифры.');
   key := #0;
  end;

[Alex Cones]

А если я введу две запятые подряд? Добавьте проверку на то, чтобы запятая была одна и не находилась на первом месте. Для этого используйте булевский флаг (глобальный). И проверку на количество введенных символов.

[Google2010]

каким способом я могу это проверить

var k:double;
begin
....
if not trystrtofloat(edit1.text, k) then showmessage('Ты уверен что '+ edit1.text +'-число?')
else showmessage('Да '+edit1.text +'-это число!!!');
....
end;

[kReid]

Спасибо, очень помогли!