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

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

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 24.04.2012, 15:47   #1
Retiree
Новичок
Джуниор
 
Регистрация: 24.09.2010
Сообщений: 2
По умолчанию Поиск в StringGrid

Помогите!! У меня есть три компонента StringGrid и один edit. Нужно задать в edit значение которое нужно найти. Он должен искать в 3 StringGrid, если нашел в j-ой строке, то начинает искать в первом StringGrid по j-ому столбцу элементы =1, если нашел, то из StringGrid2 должен в мемо вывести строки номера которых равны номерам строк где элементы =1. Вобщем вот так запутано. Помогите пожалуйста как это реализовать.
Retiree вне форума Ответить с цитированием
Старый 27.04.2012, 09:52   #2
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,515
По умолчанию

примерная схема поиска.
Код:
findstr1:=-1; // что пока в Grid1 мы ничего не нашли
for j:=0 to grid1.rowcount -1 do begin // смотрим по строкам Grid1
  if grid1.cells[0, j] =Edit1.text then begin //проверяем только нулевой столбец таблицы
     findstr1:=j; // отмечаем найденное (запоминаем номер строки)
     break; // дальше искать не будем
  end;
end;
findstr2:=-1; // что пока в Grid2 мы ничего не нашли
if findstr1 >=0 then begin  // а нашли ли мы что нибуль в Grid1
  // далее аналогично Grid1 
   for j:=0 to grid2.rowcount-1 do begin
      if grid2.cells[findstr1, j]='1' then begin // тколько проеверяем найденный findstr1 столбец и текст сравнения другой
         findstr2:=j;
      end;
  end;
end;
программа — запись алгоритма на языке понятном транслятору
evg_m на форуме Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск по БД в StringGrid Anny_Apple БД в Delphi 12 27.05.2011 00:14
Поиск в StringGrid program123 Общие вопросы Delphi 6 13.09.2010 09:45
поиск в StringGrid ... Kos123 Помощь студентам 0 18.04.2010 08:51
поиск в stringgrid Dimati87 Общие вопросы Delphi 6 17.07.2009 07:44
Поиск в StringGrid program123 Помощь студентам 5 11.04.2009 19:10