Версия для печати темы

Автор: zloy_pes 28.04.2006 0:10

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

Автор: volvo 28.04.2006 0:15

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

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 28.04.2006 0:26

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

Автор: hardcase 28.04.2006 0:55

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

Автор: volvo 28.04.2006 1:38

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

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