Юзер имеет право на ошибку

← →
Spook (2002-12-29 13:08) [0]

В одном из столбцов (Table.Fields[12]) таблицы базы данных должна находиться инфа в денежном формате (хх,хх). Подскажите, как заставить юзеров вводить в Edit1 инфу в правильном формате? Искать компонент или есть другой путь?

procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Insert;
...
Table1.Fields[12].AsInteger := Edit1.Text;
Table1.Post;
end;

← →
Юрий Зотов (2002-12-29 13:23) [1]

TMaskEdit

← →
perov (2002-12-29 14:23) [2]

Логичнее было бы предположить
Table1.Fields[12].AsCurrency := Edit1.Text;
еще варианты:
* повесить на Edit1 обработчик OnChange
* в RxLib есть компонент для ввода вещественных чисел
* во многих крупных библиотеках тоже есть аналогичные компоненты
з.ы.
не нравиться мне TMaskEdit :(

← →
Vovchik_A (2002-12-29 14:49) [3]

2perov Table1.Fields[12].AsCurrency := Edit1.Text; - Согласен
Все зависит от того что ты в итоге человек получить хочет и как реализовать.

Юзер имеет право на ошибку Найти похожие ветки