Показать сообщение отдельно
  #1  
Старый 24.10.2011, 21:01
Lenovo Lenovo вне форума
Прохожий
 
Регистрация: 16.12.2010
Сообщения: 39
Репутация: -2254
Восклицание Компонент Edit

Здравствуйте, в общем проблема такая!
Надо чтобы в Edit-е вводилась только числовая информация! Т.е чтобы запрет был на ввод буквенной!
Думаю код внесет вам ясность
Код:
DataModule3.ADOTable1.Last;
if Edit1.Text='' then Label1.Caption:='' else
Label1.Caption:= FloatToStr(DataModule3.ADOTable1.FieldByName('Koordinata_konca_sekcii').AsFloat + StrToFloat(edit1.Text));
end;

Заранее спасибо!
Ответить с цитированием