Цикл в цикле

[cashmail]

start_x:=1;
start_y:=1;
pff:=0;
While start_x<=15 do begin
While start_y<=15 do begin
pff:=pff+1;
showmessage('№'+inttostr(pff)+' Ход:'+inttostr(start_x)+':'+inttostr(start_y)+' Статус:'+inttostr(map[start_x,start_y]));
start_y:=start_y+1;
end;
start_x:=start_x+1;
end;

Цикл должен выполниться 225 раз, но выполняется 15 Подскажите, в чем может быть проблема?
P.S. приложение консольное

[Kix.IV]

А не проще ли использовать for?

pff:=0;
For start_x := 1 to 15 do
_For start_y := 1 to 15 do 
_begin
__inc(pff);
__showmessage('№'+inttostr(pff)+' Ход:'+inttostr(start_x)+':'+inttostr(start_y)+' __Статус:'+inttostr(map[start_x,start_y]));
_end;

[Yurk@]

чем обычный for не устроил?

begin
  pff:=0;
  for start_x := 1 to 15 do 
    for start_y := 1 to 15 do
    begin
      pff := pff + 1;
      ShowMessage('№'+inttostr(pff)+' Ход:'+inttostr(start_x)+':'+inttostr(start_y)+' Статус:'+inttostr(map[start_x,start_y]));
    end;
end;

[cashmail]

Во, спасибо! Ловите плюс в репу А почему с while так получилось?

[northener]

Сообщение от cashmail

А почему с while так получилось?

start_y:=1;

Инициализацию start_y нужно было выполнять внутри цикла по start_x