| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Юзер имеет право на ошибку
Spook © (2002-12-29 13:08:00)В одном из столбцов (Table.Fields[12]) таблицы базы данных должна находиться инфа в денежном формате (хх,хх). Подскажите, как заставить юзеров вводить в Edit1 инфу в правильном формате? Искать компонент или есть другой путь?
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Insert;
...
Table1.Fields[12].AsInteger := Edit1.Text;
Table1.Post;
end;
Vovchik_A (2002-12-29 14:49:00) [1]2perov Table1.Fields[12].AsCurrency := Edit1.Text; - Согласен
Все зависит от того что ты в итоге человек получить хочет и как реализовать.
perov (2002-12-29 14:23:00) [2]Логичнее было бы предположить
Table1.Fields[12].AsCurrency := Edit1.Text;
еще варианты:
* повесить на Edit1 обработчик OnChange
* в RxLib есть компонент для ввода вещественных чисел
* во многих крупных библиотеках тоже есть аналогичные компоненты
з.ы.
не нравиться мне TMaskEdit :(
Юрий Зотов (2002-12-29 13:23:00) [3]TMaskEdit
| |
