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

Ответить

Код подтверждения
Введите код в точности так, как вы его видите. Регистр символов не имеет значения.

BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[flash] ОТКЛЮЧЕН
[url] ВКЛЮЧЁН
Смайлики ОТКЛЮЧЕНЫ

Обзор темы
   

Развернуть Обзор темы: Помогите сделать задание(исправить код)

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

klljouiliu.jmjhm » 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;

Вернуться к началу