выделить самых повторяющихся значений в stringgrid

[alman12]

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

[Алексей_2012]

var
  Form1: TForm1;
  i, j: integer; //счетчик
 one,two,three,four,five: integer; //числа
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  //подготовка таблицы
  StringGrid1.RowCount := 10;
  StringGrid1.ColCount := 10;
  StringGrid1.DefaultRowHeight := 30;
  StringGrid1.DefaultColWidth := 30;
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  //заполнение таблицы
  for i := 0 to 9 do
    for j := 0 to 9 do
      StringGrid1.Cells[i, j] := IntToStr(Random(5) + 1);
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  ListBox1.Clear;
  for i := 0 to 9 do
  begin
    /////////////// считаем 1 ///////////////
     one := 0; //обнуляем переменную при проверке нового столбика
    for j := 0 to 9 do
    begin
      if StrToInt(StringGrid1.Cells[i, j]) = 1 then
        inc(one);
    end;
     ListBox1.Items.Add('Столбик ' + IntToStr(i + 1)+ ' единиц = '+ IntToStr(one)+' шт');
 
 
    /////////////// считаем 2 ///////////////
    two := 0; //обнуляем переменную при проверке нового столбика
    for j := 0 to 9 do
    begin
      if StrToInt(StringGrid1.Cells[i, j]) = 2 then
        inc(two);
    end;
    ListBox1.Items.Add('Столбик ' + IntToStr(i + 1)+ ' двоек = '+ IntToStr(two)+' шт');
 
 
    /////////////// считаем 3 ///////////////
     three := 0; //обнуляем переменную при проверке нового столбика
    for j := 0 to 9 do
    begin
      if StrToInt(StringGrid1.Cells[i, j]) = 3 then
        inc(three);
    end;
     ListBox1.Items.Add('Столбик ' + IntToStr(i + 1)+ ' троек = '+ IntToStr(three)+' шт');
 
 
      /////////////// считаем 4 ///////////////
    four := 0; //обнуляем переменную при проверке нового столбика
    for j := 0 to 9 do
    begin
      if StrToInt(StringGrid1.Cells[i, j]) = 4 then
        inc(four);
    end;
    ListBox1.Items.Add('Столбик ' + IntToStr(i + 1)+ ' четверок = '+ IntToStr(four)+' шт');
 
 
       /////////////// считаем 5 ///////////////
    five := 0; //обнуляем переменную при проверке нового столбика
    for j := 0 to 9 do
    begin
      if StrToInt(StringGrid1.Cells[i, j]) = 5 then
        inc(five);
    end;
     ListBox1.Items.Add('Столбик ' + IntToStr(i + 1)+ ' пятерок = '+ IntToStr(five)+' шт');
 
   end;
 
  end;
 
end.

[alman12]

здес не выделяется

[Stilet]

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

Показывай как пробовал. Хватит скрывать свои коды, снимай паранджу.

[Человек_Борща]

здес не выделяется

Если тупо копировать чужой код, то нигде выделяться не будет.

[alman12]

мой код не работает

var s:String;
begin
    if ((ARow=StringGrid1.Row)and(Acol>0)) then
    begin
       if ACol=StringGrid1.Col then
         StringGrid1.Canvas.Brush.Color:=12303359
      else
         StringGrid1.Canvas.Brush.Color:=clAqua;
      StringGrid1.canvas.Font.Color:=clBlack;
    end;
 
    if (ACol > 0) and (ARow > 24) then
    begin
      StringGrid1.canvas.brush.Color:=clBtnFace;
      StringGrid1.canvas.Font.Color:=clBlack;
    end;
    StringGrid1.Canvas.FillRect(Rect);
    s := StringGrid1.Cells[ACol, ARow];
    Dec(Rect.Right, 2);
    Dec(Rect.Bottom, 2);
    if (Length(s) > 0) then
    if ((Arow>0) and (ACol>0)) then
       DrawText(StringGrid1.Canvas.Handle, PChar(s), Length(s), Rect, DT_BOTTOM or DT_RIGHT or DT_SINGLELINE)
    else
       DrawText(StringGrid1.Canvas.Handle, PChar(s), Length(s), Rect, DT_CENTER);
end;

[Stilet]

Да... Такой код действительно работать не будет.
А как ты высчитываешь частоту элемента можно увидеть?

[alman12]

незнаю как сделать

[Человек_Борща]

незнаю как сделать

во втором посте дан ответ.

[alman12]

втором посте не высчитивает повторяюшихся ячеек