[Lenovo]

Здравствуйте, в общем проблема такая!
Надо чтобы в 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;

Заранее спасибо!

[t116]

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in['0'..'9',decimalseparator,#8]) then key:=#0;
 end;

Может как то так

[Lenovo]

Сообщение от t116

----------------

Спасибо! Только теперь при помощи Backspace нельзя удалить написанное)) не хорошо
Вопрос не решен, жду ответов! Спасибо

[Asmoday74]

Варинта у тебя 2:
1) Используем компонент TEdit и в обработчике событий OnKeyPress проверяем что ввел нам пользователь, если нас не устраивает то собственно страсываем значение Key.

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
const Digit: Set of Char=['0' .. '9'];
begin
  if ((not (Key in Digit)) and (Ord(Key)<>8) and (Key<>DecimalSeparator)) then
  begin
    Key:=#0; //сбрасываем значение символа
    Beep; //"пиликаем" указывая польщователю на неверный ввод
  end;
end;
//DecimalSeparator тут нужен для того чтоб можно было вводить дробные 
//значения, если не нужно то убери проверку на него.

2) Используем компнент TSpinEdit он предназначен именно для ввода числовых значений и ничего дополнтельного писать не потребуется.

[Lenovo]

Спасибо! Ответ получен! Воспользовался вариантом t116!

[kriv0y]

там в компоненте есть опция edit1.NumbersOnly:=true; или галку поставь в свойстве компонента NumbersOnly