|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.08.2007, 13:03 | #1 |
Пользователь
Регистрация: 26.06.2007
Сообщений: 36
|
Ограничение знаков после запятой,StringGrid
Добрый всем день.
Надо мне, чтобы при вводе в ячейку, можно было вводить только два знака после запятой. я засунул в событие OnKeyPress ... if Pos(',',Text) <> 0 then begin if Length(Text)- Pos(',',Text) > 2 then Key := Chr(0); ... Однако в переменную Text попадает Form1.Caption Не подскажите как правильно указать, что надо брать текст из текущей ячейки, или подсказать другой способ. |
20.08.2007, 13:07 | #2 |
Форумчанин Подтвердите свой е-майл
Регистрация: 07.07.2007
Сообщений: 241
|
можно использовать maskedit, и задать маску для ввода
|
20.08.2007, 13:20 | #3 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Вместо Text пробуй StringGrid.cells[Strinnggrid.col,StringGrid.row]
I'm learning to live...
|
20.08.2007, 15:11 | #4 |
Пользователь
Регистрация: 26.06.2007
Сообщений: 36
|
Спасибо
Теперь возник вопрос посложнее. Мне надо чтобы цифры в строках делились на порядки. Если это сделать с помощью FormatFloat, то обратно он в Float он уже не конвертирует, соответсвенно вычисление невозможно. Можно ли решить это проблему с помощью EditMask? |
20.08.2007, 15:16 | #5 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
THOUSANDSEPARATOR
Life is too short, play more...
Как правильно задавать вопросы |
20.08.2007, 15:22 | #6 |
Пользователь
Регистрация: 26.06.2007
Сообщений: 36
|
Простите, но, как я понял, данный параметр лишь задает разделитель, однако все равно необходимо форматировать.
|
20.08.2007, 15:25 | #7 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Конвертить все равно, но при конвертации THOUSANDSEPARATOR должен учитываться автоматом
I'm learning to live...
|
20.08.2007, 15:30 | #8 |
Пользователь
Регистрация: 26.06.2007
Сообщений: 36
|
Тогда вопрос, как конверитровать обратно во Float?
|
20.08.2007, 15:55 | #9 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Например в цикле поубирать из строки THOUSANDSEPARATOR, а потом уже и конвертить.
I'm learning to live...
|
20.09.2007, 16:10 | #10 |
Пользователь
Регистрация: 26.06.2007
Сообщений: 36
|
Вот пытаюсь реализовать данную задачу.
THOUSANDSEPARATOR:=' '; Вот удаление разделителей: Код:
Код:
Последний раз редактировалось Gorin; 20.09.2007 в 16:13. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
удаление не нужных знаков после запятой. | Alar | Общие вопросы Delphi | 4 | 31.05.2012 19:59 |
как отрегулировать кол-во знаков после запятой, при выведении числа(delphi) | photozaz | Общие вопросы Delphi | 11 | 10.02.2011 21:20 |
кол-во знаков после запятой в TEdit | Petrucci | Общие вопросы Delphi | 9 | 04.07.2008 13:15 |
Количество цифр после запятой | LIEN | БД в Delphi | 7 | 03.07.2008 22:12 |
Сокращение после запятой | Romuald | Microsoft Office Excel | 21 | 18.12.2007 10:32 |