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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.02.2008, 15:42   #1
monushka
Форумчанин
 
Аватар для monushka
 
Регистрация: 26.10.2007
Сообщений: 112
По умолчанию Поиск по StringGrid'у

Необходимо осуществить поиск по StringGrid'у. В Edit1 вводится слово, которое необходимо найти, кнопка Поиск имеет следующий код (пробный и нерабочий):
Код:
n:=Edit1.Text;
for i:=0 to SG1.RowCount do
for j:=0 to SG1.ColCount do
if SG1.Cells[j,i]=n  then
 ShowMessage('Объект найден!')
else ShowMessage('Объект не найден!');
Помогите, пожалуйста, правильно составить код. Необходимо, чтобы ячейка с найденным значением выделялась (что-то вроде SetFocus, наверное...).
Спасибо
If you wanna make the world a better place take a look at yourself and then make a change!
monushka вне форума Ответить с цитированием
Старый 09.02.2008, 16:36   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Делаем так:
ok:=False;
n:=Edit1.Text;
for i:=0 to SG1.RowCount-1 do
for j:=0 to SG1.ColCount-1 do
if SG1.Cells[j,i]=n then
begin
StringGrid1.Row:=j;
StringGrid1.Col:=i;
ok:=True;
break;
end;
if nor ok then

ShowMessage('Объект не найден!');

(Прошу пардона - убрал тэги кода... Некорректно, мне кажется, работает - блокирует другие доступные тэги.)

Последний раз редактировалось mihali4; 09.02.2008 в 20:02.
mihali4 вне форума Ответить с цитированием
Старый 09.02.2008, 17:07   #3
monushka
Форумчанин
 
Аватар для monushka
 
Регистрация: 26.10.2007
Сообщений: 112
По умолчанию

mihali4, спасибо!Вот только чЁ-то с циклом не то... Программа все время выдает мне сообщение "Объект не найден!", приходится завершать с помощью диспетчера задач...

Видимо на каждую проверенную ячейку выдает сообщение...
If you wanna make the world a better place take a look at yourself and then make a change!

Последний раз редактировалось AlDelta; 10.02.2008 в 00:11.
monushka вне форума Ответить с цитированием
Старый 09.02.2008, 20:03   #4
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Цитата:
Сообщение от monushka Посмотреть сообщение
mihali4, спасибо!Вот только чЁ-то с циклом не то... Программа все время выдает мне сообщение "Объект не найден!", приходится завершать с помощью диспетчера задач...
Смотрите подправленный вариант выше.
(Обратите внимание на кнопку "ПРАВКА". Не стоит плодить лишних постов, нужно объединять. Это и в правилах форума отражено.)
mihali4 вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск Witaliy Общие вопросы Delphi 1 01.05.2008 18:42
Поиск В бД Старик_Романыч БД в Delphi 5 29.04.2008 21:12
как осуществить поиск в компоненте WebBrowser1 в delphi 7 SonClan Работа с сетью в Delphi 5 20.11.2007 12:43
Поиск по FTP Averss PHP 4 04.09.2007 20:37
поиск Lonix Общие вопросы Delphi 2 04.04.2007 01:59