Текущий архив: 2003.01.13;
Скачать: CL | DM;
Вниз
Юзер имеет право на ошибку Найти похожие ветки
← →
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; - Согласен
Все зависит от того что ты в итоге человек получить хочет и как реализовать.
Страницы: 1 вся ветка
Текущий архив: 2003.01.13;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.008 c
