|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.02.2008, 15:42 | #1 |
Форумчанин
Регистрация: 26.10.2007
Сообщений: 112
|
Поиск по StringGrid'у
Необходимо осуществить поиск по StringGrid'у. В Edit1 вводится слово, которое необходимо найти, кнопка Поиск имеет следующий код (пробный и нерабочий):
Код:
Спасибо
If you wanna make the world a better place take a look at yourself and then make a change!
|
09.02.2008, 16:36 | #2 |
*
Старожил
Регистрация: 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. |
09.02.2008, 17:07 | #3 |
Форумчанин
Регистрация: 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. |
09.02.2008, 20:03 | #4 | |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Цитата:
(Обратите внимание на кнопку "ПРАВКА". Не стоит плодить лишних постов, нужно объединять. Это и в правилах форума отражено.) |
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск | 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 |