[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 ошибок нет, см бинарник

[delpi12]

спасибо, а как можна сделать чтобы ввыведились толка самые повторяющие

[Alegun]

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

...чтобы ввыведились толка самые повторяющие

Код:

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

   for i := 0 to rowCount-1 do
     begin
      s:= Cells[0, i];
      for b := 0 to rowCount-1 do if Cells[0, b] = s then Inc(ia[i]);
     end;
   b:= 0;
   for i := 0 to rowCount-1 do if ia[i]> b then
   begin
   b:= ia[i];
   c:= i;
   end;
   for i := 0 to rowCount - 1 do
    if Cells[0,i] = Cells[0,c] then (Objects[0, i] as TBoolObj).flg:= true;
  Repaint;
 end; {with}
end;

совсем без оптимизации

[delpi12]

спасибо за помощ брат