наверно доработался

Код

... for i2 := 1 to 10 do begin ...

в следующей строке i2 принимает значение 10, почему не понятно

изза чего может так работать?

А что в теле цикла?

следующая строка:

Код

for n := 1 to Groups[i2].iLen do begin

Код

procedure TForm1.Button1Click(Sender: TObject); var   I, J: Integer; begin   for I := 1 to 10 do     for J := 1 To 10 do       ShowMessage(IntToStr(I) + ' ; ' + IntToStr(J)); end;

Все нормально, как видно.

Да, кстати, как я понял, у тебя идёт:

Код

for i2 := 1 to 10 do begin   for n := 1 to Groups[i2].iLen do begin

Если так, то первый begin не нужен.

Во всяком случае, сложно определить ошибку, т. к. тот код, который ты предоставил, ни о чём не говорит.

какой то маразм
если так

Код

for i2 := 1 to 10 do begin       showmessage(inttostr(i2));       for n := 1 to Groups[i2].iLen do begin

i2 отрабатывает как и положено от 1 до 10
ели так:

Код

for i2 := 1 to 10 do begin       for n := 1 to Groups[i2].iLen do begin

то сразу становится 10

P.S. насчет первого begin'а, а кто сказал что после вложенного цикла во внешнем ничего не обрабатывается?

А как ты определяешь, что i2 = 10 ?
Попробуй отключить оптимизацию (Project->Options-Compiler options->Optimization)
Добавлено @ 15:14

Цитата(Guest @ 27.9.2005, 15:10)

P.S. насчет первого begin'а, а кто сказал что после вложенного цикла во внешнем ничего не обрабатывается?

Ты уж приведи тогда полный код, а то тут можно долго гадать...
Оптимизация может по-разному себя повести в зависимости от того, что в теле цикла, как используется переменная цикла и пр...

через watch list

Код

for i2 := 1 to 10 do

работает как

Код

for i2 := 10 downto 1 do

Если оптимизатор решит, что это никак не повлияет на результат и логику работы, то почему бы и нет ?
Дак мы увидим сегодня весь код или надо всем форумом просить ?
И оптимизацию не пробовал отрубать ? (хоть знать из-за неё это или нет, а там можно будет подробнее рассмотреть, как же всё это соптимизировалось так... но для этого опять же нужен код ;) )
Если же это не оптимизация, то смотреть откуда это лезет...
Как вариант еще можешь попробовать i2 сделать глобальной переменной...

отключение оптимизатора не помогло

Код

function State1 (var x, y: Integer): Boolean; var i2, n : Integer; begin   repeat     x := Random (10) + 1;     y := Random (10) + 1;   until (APole[x,y] = -1)or(APole[x,y] = 0);   Result := Killed (x, y);   if Result then begin     i2 := 0;     for i2 := 1 to 10 do begin       //showmessage(inttostr(i2));       for n := 1 to Groups[i2].iLen do begin         if (Groups[i2].pPoint[n].x = x)and(Groups[i2].pPoint[n].y = y) then begin           dec(Groups[i2].iLive);           if Groups[i2].iLive = 0 then             Dec (KorP[Len])           else             State := 2         end;       end;     end;   end; end;

Цитата(Guest @ 27.9.2005, 15:48)

отключение оптимизатора не помогло

По смыслу оптимизация - единственное нормальное объяснение такого поведения. Если бы было так, как ты говоришь (что без оптимизации идёт задом наперед), то это можно было бы уже отнести к глюкам Delphi. Но это не так, ты что-то неправильно делаешь... Объясню получше, что тебе надо сделать:
Меню Project->Options, там закладка Compiler, в рамке "Code Generation" отключи флажок Optimization...
После этого сделай Project->Build All Projects...

PS: у меня без оптимизации идёт от 1 до 10... Так что проверяй внимательнее...

Объяснение этому такое:
цикл задом наперед выполняется на микроны быстрее и результирующий код получается немного меньше. Оптимизатор в данном случае решил, что такую фишку можно применить по той причине, что в цикле значение i2 нигде не используется... Groups[i2] не в счет - в полученном коде в один из регистров вначале цикла заносится адрес Groups[1], и в цикле прибавляется размер одной записи Groups, поэтому необходимость иметь "прямое" значение i2 отпадает...