Поиск в StringGrid (другие темы не помогли :( )

[LobsterOK]

Создал эту тему от безвыходности.
Нужна прога для курсача, должна работать на StringGrid - телефонный справочник... ну типо того....

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

Вот есть такая прога в аттаче.


В ней есть вот такой код отвечающий за поиск.... но он не работает , я не заню почему и как его заставить работать.... хеееелп!! плиииз

  for i:=0 to maindata.RowCount-1 do
  begin
    if sfio.Text = maindata.Cells[0,i] then Begin
      found:=true;
    //Веделение нужной строки после поиска
      GRect.Left:=0;
      GRect.Top:=i;
      GRect.Right:=4; // указывает на то, какую ячейку выделять
      GRect.Bottom:=i;
      maindata.Selection:=GRect;
      maindata.LeftCol:=0;  // указывает номер строки выделения
      maindata.TopRow:=i;
      End;
    End;
  if found<>true then ShowMessage('Not Found!');

[mihali4]

У меня почему-то работает... И в оригинале тоже. Но я немного переделал:

maindata.Options:=maindata.Options+[goRowSelect];
 for i:=0 to maindata.RowCount-1 do
  begin
    if maindata.Cells[0,i]=sfio.Text then 
     Begin
      found:=true;
      maindata.Row:=i;
      break;
     End;
    End;
  if found<>true then ShowMessage('Not Found!');

[SNUPY]

Семен Семеныч..... В принципе ничего сложного нет если подумать, но не мне судить. Держите продцедура должена выделить 1-ую же строку удовлетворяющею запросу:

procedure FindInStrGrd(CellX:integer; s:string; strgrd:TStringGrid);
//CellX- номер столбца по которому будет идти поиск
//S- искомое
//strgrd- таблица по которой будет произведен поиск
var
  i:integer;
  r:TGridRect;
begin
  i:=StrGrd.Cols[CellX].IndexOf(S);
  if i<0 then exit;
  r.left:=StrGrd.FixedCols;
  r.right:=StrGrd.ColCount-1;
  r.top:=i;
  r.bottom:=i;
  StrGrd.Selection:=r;
end;

[LobsterOK]

((
Блин, все равно не могу разобраться...... ну криво работает поиск , отображает тока первого или вообще не отображает, если в списке два...три...... одинаковых имени показывает тока первого, а на остальных забивает...
У меня опускаются руки, похоже не сдам я курсач.... уааа....

Добрые программеры, помогите плиз...

Кому не сложно порыться в чужом коде, гляньте а, плиииззз....


ЗЫ: мож какие другие ошибки найдете, посоветуете что....

ЗЫЫ: на кнопку "сброс" не обращайте внимания, это была кнопка сброса результатов поиска... руки не дошли убрать

[mihali4]

Сообщение от LobsterOK

криво работает поиск, отображает только первого или вообще не отображает, если в списке два...три...... одинаковых имени показывает только первого

findex: integer; - глобальная

procedure Tmform.searchClick(Sender: TObject);
var found: boolean;
    i: integer;
begin
findex:=findex+1;
maindata.Options:=maindata.Options+[goRowSelect];
 for i:=findex to maindata.RowCount-1 do
  begin
    if maindata.Cells[0,i]=sfio.Text then 
     Begin
      found:=true;
      maindata.Row:=i;
      findex:=i;
      break;
     End;
    End;
  if found<>true then ShowMessage('Not Found!');
end;

procedure Tmform.sfioChange(Sender: TObject);
begin
findex:=-1;
end;

sphoneOnChange присвоить sfioChange

[LobsterOK]

Огромная благодарность mihali4.

Теперь все работет )) Прога есть, теперь осталось курсач по ней написать.. но это уже совсем другая история