Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c