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

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

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

19 май 2018, 08:53

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