[delpi12]

как найти повторяюшся значения в ячеейки stringgrid и выделить ?

[Alegun]

Смотрите здесь

[delpi12]

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

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

[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

[delpi12]

ошибку выдаеть 'Access violotion at address 00530E42 in module project1'

[Alegun]

В D7 ошибок нет, см бинарник