[Alegun]

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

там про поиска...

Просто замените там процедуру обработки клика кнопки на эту

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 i, b, c: integer;
 s: string;
begin
 with StringGrid1 do
  begin
   for i := 0 to rowCount-1 do
    (Objects[0, i] as TBoolObj).flg:= false;

    for i := 0 to rowCount-1 do
     begin
      s:= Cells[0, i];
      c:= 0;

      for b := 0 to rowCount-1 do
       if Cells[0, b] = s then Inc(c);

      if c > 1 then (Objects[0, i] as TBoolObj).flg:= true;
     end;

  Repaint;
 end; {with}
end;

следующий вопрос вероятно будет о цветных ячейках в StringGrid