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

Ответить

Код подтверждения
Введите код в точности так, как вы его видите. Регистр символов не имеет значения.
BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[flash] ОТКЛЮЧЕН
[url] ВКЛЮЧЁН
Смайлики ОТКЛЮЧЕНЫ
Обзор темы
[quote=klljouiliu.jmjhm post_id=102783 time=1526709198 user_id=46169] Необходимо найти число в 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; [/quote]
   

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

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

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;

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