Главная arrow icon Вопросы arrow icon Технологии arrow icon Помогите исправить код Delphi.Необходимо найти самое…

Помогите исправить код Delphi.Необходимо найти самое встречающейся число в колонке StringGrid код r - вопрос №2881407

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

begin
with StringGrid1 do
mx=0;
for i:=fixedrows to rowcount-1 do
begin
k:=0;
for j:=fixedrows to rowcount-1 do
if Cells[1,i]=Cells[1,j] then k:=k+1;
if k>mx then
begin
chislo:=Cells[1,i];
mx:=k;
end;
end;
Ivan
21.05.18
Технологии
1 ответ
Delphi

Ответы

Глазов Эмиль Юрьевич
www.cyberforum.ru/delphi-beginners/thread666353.html
23.05.18

Александр
300 р.
Сейчас на сайте
Рейтинг: 255
Читать ответы

Глеб Черняк
от 55 p.
Рейтинг: 704 506
1-й в Технологиях
Читать ответы

Олег Николаевич
от 50 p.
Рейтинг: 26 577
2-й в Технологиях
Читать ответы
Посмотреть всех экспертов из раздела Технологии
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее