организация поиска - не ищет последнюю строку в StringGrid

[Xeon332]

здравствуйте! такая проблема... код для поиска работает с ошибочками.... не ищет последнюю строку в StringGrid...
посмотрите на код:

// поиск по фамилии
procedure TForm3.Button1Click(Sender: TObject);
var
  i: Integer;
 GRect: TGridRect;
 begin
  for i := 1 to Str-1 do  // организуется цикл
    if Edit1.Text=Form1.StringGrid1.Cells[0,i] then  // проверка условия
     begin  // если совпадение, то выделение ячейки
      GRect.Left:=0;
      GRect.Top:=i;
      GRect.Right:=1; // указывает на то, какую ячейку выделять
      GRect.Bottom:=i;
      Form1.StringGrid1.Selection:=GRect;
      Form1.StringGrid1.LeftCol:=0;  // указывает номер строки выделения
      Form1.StringGrid1.TopRow:=i;
     end;
close;// закрытие
end;

// организация поиска по телефону
procedure TForm3.Button2Click(Sender: TObject);
var
  I: Integer;
 GRect: TGridRect;
 begin
  for i := 1 to Str-1 do  // организуется цикл
    if Edit2.Text=Form1.StringGrid1.Cells[3,i] then  // проверка условия
     begin
      GRect.Left:=0;  // регион выделенных ячеек
      GRect.Top:=i;
      GRect.Right:=3; // указывают на то, какую ячейку выделять
      GRect.Bottom:=i;
      Form1.StringGrid1.Selection:=GRect;  // выбор ячеек
      Form1.StringGrid1.LeftCol:=0; // указывает номер строк выделения
      Form1.StringGrid1.TopRow:=i;
     end;
close; // закрытие
end;

// организация поиска по адресу
procedure TForm3.Button3Click(Sender: TObject);
var
  i: Integer;
 GRect: TGridRect;
 begin
  for I := 1 to Str-1 do
    if Edit3.Text=Form1.StringGrid1.Cells[4,i] then   // проверка условия
     begin
      GRect.Left:=0;
      GRect.Top:=i;
      GRect.Right:=4;
      GRect.Bottom:=i;
      Form1.StringGrid1.Selection:=GRect;
      Form1.StringGrid1.LeftCol:=0;
      Form1.StringGrid1.TopRow:=i;
     end;
 close;  // закрытие
 end;
end.

почему я так и не пойму он не ищет по всем строкам определённого критерия?... подскажите если видите ошибку... заранее благодарен

[Stilet]

А если так:

if pos(ansyuppercase(Edit3.Text),ansyuppercase(Form1.StringGrid1.Cells[4,i]))<>0 then...

И вообще что это за str1-1? А если это выражение больше чем строк в Гриде?

[mihali4]

Ничего не понял. Можно нормальным русским языком (вместо своих изысков) объяснить что вы хотите найти?

[Stilet]

Михалыч, он хочет найти в определенной колонке текст, представленный в Edit.
ТОлько действия в IF мне тоже мало о чем говорят.

О тока вспомнил, искать еще можно и так:

var i:integer;
begin
i:=StringGrid1.Cols[<Номер колонки>].IndexOf(Edit1.Text);
if i<>-1 then // Нашли!!! i - строка
end;

[MalexG]

В StringGrid'е нумерация колонок и строк начинается с нуля.
Цикл соедует организовывать сл. образом:

for i := 0 to ColCount-1 (RowCount-1) do
begin
...
end;

где ColCount - количество столбцов StringGrid'а;
RowCount - количество строк StringGrid'а.

[Xeon332]

всем огромная благодарность за помощь!.