Поиск по StringGrid

[Nemesis9]

Есть таблица (StringGrid).

Задача: при поиске "Текст N" выводить последнее непустое "Значение N", скажем, в Memo. Например поиск "Текст 5" должен вывести результаты "Значение 1" и "Значение 2". Или поиск "Текст 9" должен выводить результат "Значение 3".
Если совпадений по каким либо значениям на найдено вывести эти значения в другое поле Memo.
Сделал через дописывание пустых ячеек последней непустой ячейкой и при совпадении копировал соответсвующее значение слева, но таблица большая, долго обрабатывается.
Просьба помочь разобраться.Заранее благодарю.

[Stilet]

with StringGrid do begin
 i:=Cols[2].IndexOf('Текст 5');
 if i>0 then 
  while (i<0)and(Cols[1][i]='') do dec(i);
 ...:=Cols[1][i];
end;

Это если я тебя правильно понял.
Или наверно лучше так:

var zak:string;
...
with StringGrid do begin
 for i:=0 to RowCount-1 do begin
  if Cells[1,i]<>'' then zak:=Cells[1,i];
  if Cells[2,i]='Текст 5' then выводим zak;
 end;

[Nemesis9]

Спасибо, все работает, по сравнению с моими конструкциями очень информативно и продуктивно)

[Stilet]

Пользуйся наздоровье )

[Nemesis9]

А теперь не получается проверить на несовпадение с Edit1 для выводы в другое Memo значений, у которых нет "Текст N". Если вычитать из всех "Значений" значения которые соответствуют условию обрабатывать большую таблицу будет долго(

[Stilet]

Чет я ниче не поянл )

[Nemesis9]

Все, разрешилась задача)) спасибо)