Как разрешить ввод только чисел? Опции

[zloy_pes]

Есть editbox - как запретить ввод символов, отличных от цифр? Точнее по нажатию на кнопку button, если в editbox'е введено не вещественное число, то появляется MessageBox.
Заранее Спасибо!

[volvo]

Кто мешает сделать так, например:

procedure TForm1.Button1Click(Sender: TObject);
var f: double;
begin
  try
    f := StrToFloat(edit1.Text);
  except
    ShowMessage('error: not a float number !!!');
  end;
end;

?

[zloy_pes]

Спасибо за оперативность! Все работает.

[hardcase]

Существует такой компонент MaskEdit - там есть шаблоны ввода.
Используй его.

Сообщение отредактировано: hardcase - 27.04.2006 20:56

[volvo]

hardcase, прежде всего - есть задание:

Есть editbox - как запретить ввод символов

Если я тебе в ответ на твой пост про консоль напишу: чего ты Win пользуешь? Есть же *nix-ы, ставь и пользуйся - там проще - тебя это сильно порадует?