Поиск по БД в StringGrid

[Anny_Apple]

Делаю поиск по четырём разным полям. Если поиск удался, то должна выделиться строка с найденной информацией.. Но на практике не работает. Посмотрите, пожалуйста, в чём ошибка.

procedure TForm4.BitBtn2Click(Sender: TObject);
var
  SearchColumn, i: Integer;
begin
  if RadioButton2.Checked then
    SearchColumn := 0;
  if RadioButton4.Checked then
    SearchColumn := 6;
  if RadioButton6.Checked then
    SearchColumn := 8;
  if RadioButton8.Checked then
    SearchColumn := 7;
  for i := 1 to Form1.StringGrid1.RowCount - 1 do
    if Pos(Edit1.Text, Form1.StringGrid1.Rows[i].Strings[SearchColumn]) <> 0 then
      begin
        Form1.StringGrid1.Col := SearchColumn;
        Form1.StringGrid1.Row := i
      end;
  Edit1.Clear;
  Edit1.SetFocus
end;

[OlegVE]

Здравствуйте
Может так попробуйте

...
  for i := 1 to Form1.StringGrid1.RowCount - 1 do
//    if Pos(Edit1.Text, Form1.StringGrid1.Rows[i].Strings[SearchColumn]) <> 0
    if Pos(Edit1.Text, Form1.StringGrid1.Cells(SearchColumn, i) <> 0 then
...

До свидания

[Anny_Apple]

 if Pos(Edit1.Text, Form1.StringGrid1.Cells(SearchColumn, i) <> 0 then

Ругается на строчку:

Expected')' but received THEN

Type of expression must be BOOLEAN

[OlegVE]

Здравствуйте
Прошу прощения надо две скобки после i.
Хотя Вы и сами могли подсчитать.
До свидания

[Anny_Apple]

что-то всё ровно не выходит

поиск как не работал, так и не работает

Кто-нибудь, помогите, очень надо!!!!!!!!!!!!

[Gulik]

ну если очень надо тогда при нахождении искомой сроки останови цикл )))
так же я поправил код, чтобы поиск шел по всем полям

procedure TForm1.Button1Click(Sender: TObject);
   var
      SearchColumn, i: Integer;
begin
   for SearchColumn := 1 to StringGrid1.ColCount - 1 do begin
      for i := 1 to StringGrid1.RowCount - 1 do begin
          if Pos(Edit1.Text, Form1.StringGrid1.Rows[i].Strings[SearchColumn]) > 0 then begin
             StringGrid1.Col := SearchColumn;
             StringGrid1.Row := i ;
             Break ;
          end ;
      end ;
   end ;   
   Edit1.Clear;
   Edit1.SetFocus ;
end ;

[Anny_Apple]

Что-то не получается, если не сложно посмотрите, пожалуйста, в чём пробдема. Я выложу исходник.

[Gulik]

Проверяй, у меня ищет на Ура Скачать (Delphi1.zip)

[Anny_Apple]

Огромное спасибо, Gulik!

[_Engine_]

А вообще, плохой тон StringGrid & БД