Помогите сделать задание(исправить код)

Модераторы: Duncon, Naeel Maqsudov, Хыиуду, Игорь Акопян

klljouiliu.jmjhm
Сообщения: 1
Зарегистрирован: Сб май 19, 2018 8:49 am

Помогите сделать задание(исправить код)

Сообщение klljouiliu.jmjhm » Сб май 19, 2018 8:53 am

Необходимо найти число в 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;