Developing.ru

Необходимо найти число в StringGrid во второй колонке самое встречаемое
procedure TForm1.Button3Click(Sender: TObject);

var
i,j,k,mx:integer;
chislo:string;

begin
with StringGrid1 do
mx=0;
for i:=fixedrows to rowcount-1 do
begin
k:=0;

if Cells[1,i]=Cells[1,j] then k:=k+1;
if k>mx then
begin
chislo:=Cells[1,i];
mx:=k;
Edit3.Text:=inttostr(chislo);
end;
end;
end;