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

[Stilet]

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

Так вот тебе сначала нужно придумать алгоритм расчета частот значений. А уже потом все остальное.
Мне к примеру на ночь глядя в голову ничего не приходит кроме создания динмассива или списка. Что-то типа.

unit Unit1;

{$mode objfpc}{$H+}

interface

uses  contnrs,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Grids;

type

  { TForm1 }
  TElem=class
    Val,cnt:integer;
  end;

  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
      aRect: TRect; aState: TGridDrawState);
  private
    l:TObjectList;
    Function Find(n:integer):Boolean;
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var k,i,j:integer;
begin
 l:=TObjectList.create(free); //Список элементов
 //Заполним грид
 with StringGrid1 do
  for i:=0 to RowCount-1 begin
    for j:=0 to ColCount-1 begin
     Cells[j,i]:=IntToStr(Random(5));
    end;
  end;

//Заполним список элементов их количествами
with StringGrid1 do
 for i:=0 to RowCount-1 begin
   for j:=0 to ColCount-1 begin
    k:=StrToInt(Cells[j,i]);
    if not Find(k) then with TElem(l[l.Add(TElem.Create)]) do begin
      cnt:=0; Val:=k;
    end;
   end;
 end;

//Тут пройти по l в поисках самого максимума
//И записать его индекс или значение в некую переменку
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  l.Free;
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
begin
 //Которую потом тут сверять.
end;

function TForm1.Find(n: integer): Boolean;
var i:integer;
begin
 //Тут ищем элемент. Если находим - увеличиваем его кол-во
 Result:=false;
 for i:=0 to l.Count-1 do
  if TElem(l[i]).Val=n then begin inc(TElem(l[i]).cnt); result:=true; exit; end;
end;

end.

[alman12]

ошибку выдает везде
l:TObjectList;

[Stilet]

Потому что нужен модуль contnrs )

[alman12]

как выделить значения ?

[Stilet]

Для начала пройдись циклом по списку и найди максимальное значение среди количеств. Если брать мой пример то:

for i:=0 to l.Count-1 do if l[imax].cnt<l[i].cnt then imax:=i;

Это даст тебе самое частое значение: l[imax].Val;
Вот в событии отрисовки его и сверяй с теем что в ячейке грида.

[alman12]

for i:=0 to l.Count-1 do if l[imax].cnt<l[i].cnt then imax:=i;
StringGrid1.SetFocus;

как сделать ?

l:=TObjectList.create(free)

ошибка

очен много ошибок выдает

var k,i,j:integer;
begin
 l:=TObjectList.create(free); //Список элементов
 //Заполним грид
 with StringGrid1 do
  for i:=0 to RowCount-1 begin
    for j:=0 to ColCount-1 begin
     Cells[j,i]:=IntToStr(Random(5));
    end;
  end;

ощибку выдает

[alman12]

помогите !

[Аватар]

как сделать ?

l:=TObjectList.create(free)

Тупо в справке посмотеть параметры метода Create класса TObjectList

[Stilet]

А что в Делфи еще не прикрутили? Ну извиняюсь, в Лазарусе эта плюха уже есть ))
И кстати я там ошибся ))) Надо было написать True, а я с чего-то free влепил

[Аватар]

Есть и в делфи, даже два конструктора, один из них с булевским параметром