|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
14.09.2010, 18:08 | #1 |
Старожил
Регистрация: 05.06.2008
Сообщений: 4,206
|
Не работает цикл проверки на наличие неверных символов
Не работает почему-то цикл на проверку букв в столбце. Мне нужно: сделать цикл проверки столбца, в котором только цифры, на наличие вдруг в этом столбе букв. Делаю такой цикл:
Код:
1. Как сделать, чтобы проверка шла по столбцу и если будет обнаружена буква, русская или английская любая, то выдалось сообщение? 2. Будет ли сделанный цикл работать, если у меня в колонке содержится в ячейках по несколько цифр, например, 384а73? Если такое встречается, то должно выдаться соответствующее сообщение.
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
|
14.09.2010, 18:17 | #2 |
Участник клуба
Регистрация: 07.07.2007
Сообщений: 1,518
|
А может сделать так?
Код:
|
14.09.2010, 18:23 | #3 |
Старожил
Регистрация: 05.06.2008
Сообщений: 4,206
|
Спасибо! . С этим разобрались. Можно ли сделать, чтобы ячейки в которых были найдены неверные символы как-то помечались цветом?
Сейчас получился такой код (если кому надо): Код:
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
|
14.09.2010, 18:54 | #4 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
Можно поместить код в обработчик прорисовки
Код:
|
14.09.2010, 19:02 | #5 |
Старожил
Регистрация: 05.06.2008
Сообщений: 4,206
|
Спасибо! А можешь пояснить это:
Код:
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
|
14.09.2010, 19:08 | #6 | ||
Студент, не
Старожил
Регистрация: 29.01.2009
Сообщений: 2,067
|
Цитата:
Проверка наличия символа будет так: "If Pos('a', Form1.RzStringGrid2.Cells[1, c])<>0 Then"... Ну а так-то если только на ввод правильных чисел проверять, то пойдёт и try/except... Цитата:
I am the First of Cyber Evolution...
I am the First to Program your Future... |
||
14.09.2010, 19:18 | #7 |
Форумчанин
Регистрация: 09.11.2009
Сообщений: 669
|
Вот этот код помещаеш в DrawCell:
Код:
Код:
Попробуй так: Код:
Я не всегда знаю, о чем говорю, но знаю, что прав. © Мухаммед Али.
К чёрту обстоятельства. Я создаю возможности. © Брюс Ли |
14.09.2010, 19:27 | #8 | |
Старожил
Регистрация: 05.06.2008
Сообщений: 4,206
|
Да хотя ладно, не надо заморачиваться с вызовом процедуры, код работает нормально вроде после того, как в грид данные грузятся. Вы мне скажите где подправить в коде, чтобы фиксированная ячейка не закрашивалась? Я про этот код:
Цитата:
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
|
|
14.09.2010, 19:36 | #9 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
Код:
Чтобы нулевая строка не выделялась, надо чуть изменить условие Код:
|
14.09.2010, 19:52 | #10 |
Старожил
Регистрация: 05.06.2008
Сообщений: 4,206
|
Спасибо, что пояснили. А вот почему-то пытаюсь сделать тоже самое для второй колонки, что бы ошибочные ячейки выделялись зеленым цветом. Вроде заменил номер колонки, а закрашивания не происходит:
Код:
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа проверки вывода символов и цвета на принтер | Absolut | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 3 | 13.09.2010 12:43 |
Проверить наличие eng символов? | alco84 | Microsoft Office Access | 4 | 08.04.2010 11:08 |
программа нахождения и проверки символов/строк | MixanMM | Общие вопросы Delphi | 14 | 09.07.2009 08:44 |
Не работает функция проверки подстроки в строке | Cold_Night | Помощь студентам | 1 | 25.03.2009 01:30 |
Код проверки столкновений не работает. | Манжосов Денис :) | Общие вопросы Delphi | 8 | 02.02.2009 10:31 |