Технологии
Помогите исправить код 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;
май 21, 2018 г.
-
Всего ответов: 1
Похожие вопросы
Добрый день! Как на Delphi считать данные в строке между тегами ";" но к примеру мне нужены значения 1 тега и к примеру 5 тега Пример строки
июнь 4, 2019 г.
Технологии
Помогите найти файл jsWebBrowser.pas и его ресурс jquery.res для работы с javascript в Delphi Webbrowser.
декабрь 16, 2016 г.
Технологии