Цикл While

[aharem08]

Хелп

Вообщем проблема в том что

(ранее х и у :=1)

begin
while x<12 do begin
inc(x);
while y<12 do begin
inc(y);
memo1.lines.add(inttostr(x)+','+int tostr(y));
end;
end;
end;

в данном случае конечный результат будет 1,12
Вопрос-почему не изменяется x дальше до 12,12

[Serge_Bliznykov]

смотрите, во внутреннем цикле увеличивается y
пока не станет равным 12. стало y 12 - всё, в цикл
while y<12 do begin
вход закрыт.
А вывод в мемо именно в этом цикле производится.
Потом x увеличивается до 12 - но при этом в мемо уже ничего не пишется.

Вы что хотели сделать то?!!
если получить 1,1, 1,2... 1,12, .. потом 2,1, 2,2... 2,12 и т.д. до 12,1, 12,2... 12,12
тогда просто нужно

begin
while x<12 do begin
  inc(x);
  y:=0;
  while y<12 do begin
     inc(y);
     memo1.lines.add(inttostr(x)+','+inttostr(y));
  end;
end;
end;

[fenix-elite]

while x<13 do
  begin
    while y<13 do
      begin
        memo1.lines.add(inttostr(x)+','+inttostr(y));
        inc(y);
      end;
    inc(x);
    y := 1;
  end;

ПРоблема твоя в том, что ты не обнуляешь( точнее не присваиваешь 1) y после прохода вложенного цикла. В итого он после 1 прохода в него даже не заходит, т.к после прохода y = 12.

[aharem08]

вообще я делал через
FOR x:=1 to 12 do begin
тут должно быть условие при котором если оно выполняется то x:=x+1, но в цикле for счетчик нельзя менять поэтому я стал использовать while
for y:=1 to 12 do begin

и тут так же вывод в мемо



вообще мне надо чтобы у меня через цикл While вывести чифры от 1,1 1,2.....12,12

[aharem08]

Ё ВСЕМ СПАСИБО!

[aharem08]

а вот еще вопрос- если я делаю таких вложеных циклов 5 штук-они работают но если на форме куда то тыкнуть то форма виснет пока результат не дойдет до 12,12,12,12,12. С этим можно что то сделать?

[fenix-elite]

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

[aharem08]

Спасиб. Буду читать про это дело и делать)

[aharem08]

ЕЕ сделал)

[Serge_Bliznykov]

если на форме куда то тыкнуть то форма виснет пока результат не дойдет до 12,12,12,12,12. С этим можно что то сделать?

Просто в цикле отдавайте системе её тики - вставьте внутрь цикла такую строчку:

      Application.ProcessMessages;

и всё зашевелится!