[Dastik]

Добрый вечер господа.
Есть код:

var i,j,s,ss:integer;
arr:array[0..4,0..4]of integer;
begin
for i:=0 to 4 do
for j:=0 to 4 do
arr[i,j]:=StrToInt(StringGrid1.Cells[j,i]);//Заполняем массив
{счетчики i,j идут соответственно от нуля к четырем}
ss:=0;
s:=0;
for i:=0 to 4 do //А вот здесь они считаются от ПЯТИ к НУЛЮ!
begin
for j:=0 to 4 do //И здесь тоже.
if arr[i,j]=arr[i,j+1] then
ss:=ss+1;
if ss>s then
s:=ss;
ss:=0;
end;

Программирую на Дельфи уже достаточно давно, а такого еще ни разу не
видел.
Что подскажите?

[Yurk@]

//А вот здесь они считаются от ПЯТИ к НУЛЮ!

Хмм... Неясно !
Не могут они считаться в обратную сторому! Может проблема в чем-то другом?
Проверь все остальное!

if arr[i,j]=arr[i,j+1] then

А что ты будешь делать если у тя j будет равно 4 - какой будет результат arr[i,j+1].

[Oleg]

Может два витка цикла совпадают и получается новое значение. Непонятно...

[Yurk@]

Два витка не могут совпадать!
for i:=0 to 4 do
Переменная каждый раз обнуляется!

[Oleg]

Ну это я знаю, из-за чего же тогда, пытаюсь тоже решить. А вдруг ?

[Oleg]

Это так(никакой 5 не вылезает) ?

Код:

var i,j,s,ss:integer;
arr:array[0..4,0..4]of integer;
begin
for i:=0 to 4 do begin
for j:=0 to 4 do begin
arr[i,j]:=StrToInt(StringGrid1.Cells[j,i]);//Заполняем массив
ss:=0;
s:=0;
end;
end;
for i:=0 to 4 do begin
for j:=0 to 4 do begin
if arr[i,j]=arr[i,j+1] then
ss:=ss+1;
if ss>s then
s:=ss;
ss:=0;
end;
end;
end;

[Yurk@]

Я тя немножко дополню:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,s,ss:integer;
arr:array[0..4,0..4]of integer;

begin
ss:=0;
s:=0;
for i:=0 to 4 do
for j:=0 to 4 do
begin
if Length(StringGrid1.Cells[i,j])<>0 then //проверка на наличие текста в ячейке (не исключено что его там нет)
arr[i,j]:=StrToInt(StringGrid1.Cells[i,j]);
end;

for i:=0 to 4 do
for j:=0 to 4 do
begin
if arr[i,j]=arr[i,j+1] then
ss:=ss+1;
if ss>s then
s:=ss;
ss:=0;
end;
end;

Кста, Oleg все верно сказал!
Поддерживаю!
НИКАКОГО 5 там нет !

[Aristarh Dark]

Dastik отключи оптимизацию для этого куска кода.

[The Shadow]

Сообщение от Yurk@

Не могут они считаться в обратную сторому!

Неправда.

Код:

for i:=4 downto 0 do
...

[Yurk@]

Сообщение от The Shadow

Неправда.

Код:

for i:=4 downto 0 do

Абсолютно с тобой согласен!
Но у него код выглядит иначе!

Код:

for i:=0 to 4 do //при таком коде обратно он считать не будет