Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.11.2008, 13:24   #1
Arassir
Форумчанин
 
Аватар для Arassir
 
Регистрация: 23.10.2008
Сообщений: 230
По умолчанию подскажите

Каким написать код программы чтобы

Из поля Tedit1 при нажатии кнопки информация переносилась в таблицу StringGrid1.
При этом выполнялась проверка коррекции ввода (т.е. чтобы в таблицу заносились только цифры, или цифры с запятой)
Arassir вне форума Ответить с цитированием
Старый 11.11.2008, 13:32   #2
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,645
По умолчанию

Код:
val(Edit1.text, w, q);
if q = 0 then StringGrid1.cells[столбец, строка] := w;
На счёт цифр с запятой, то это от региональных настроек зависит
eoln вне форума Ответить с цитированием
Старый 11.11.2008, 13:32   #3
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Цитата:
Сообщение от Arassir Посмотреть сообщение
чтобы в таблицу заносились только цифры, или цифры с запятой
А сделай, чтобы в Edit не писалась всякая ерунда(то что тебе не нужно)

Например, на событие KeyPress(там где key:char) повесь обработчик
Код:
if not (key in ['0'..'9',',',#8]) then key:=#3;
А переписать в таблицу уже дело техники
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума Ответить с цитированием
Старый 11.11.2008, 13:34   #4
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

TMaskEdit вам в помощь. И почаще нажимайте клавишу F1.
mihali4 вне форума Ответить с цитированием
Старый 11.11.2008, 15:09   #5
Arassir
Форумчанин
 
Аватар для Arassir
 
Регистрация: 23.10.2008
Сообщений: 230
По умолчанию

Цитата:
Сообщение от alex_fcsm Посмотреть сообщение
А сделай, чтобы в Edit не писалась всякая ерунда(то что тебе не нужно)

Например, на событие KeyPress(там где key:char) повесь обработчик
Код:
if not (key in ['0'..'9',',',#8]) then key:=#3;
А переписать в таблицу уже дело техники

Что здесь означает #8 и #3
Arassir вне форума Ответить с цитированием
Старый 11.11.2008, 15:12   #6
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Цитата:
Сообщение от Arassir Посмотреть сообщение
Что здесь означает #8 и #3
#8 - возможность пользоваться backspace
#3 - пустой символ
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума Ответить с цитированием
Старый 11.11.2008, 15:15   #7
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию

Цитата:
Сообщение от Arassir Посмотреть сообщение
Что здесь означает #8 и #3
И можешь почитать ASCII коды символов...
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подскажите. Sk!f Софт 3 03.10.2008 09:19
подскажите! Artem25 Свободное общение 1 03.10.2008 09:18
Подскажите!! Xandr Win Api 5 12.07.2007 16:53
Подскажите upsi Помощь студентам 2 03.03.2007 22:39