цикл в цикле

[123456789igor]

Не могу понять как работает цикл в цикле
на пример
repeat
begin
lalalala
if что-то1<>100 then
begin
lalalala2
что-то1:=что-то1+1;
end
end
until что-то2<чего-то

Выполняется это так?
Заходим в цикл repeat делаем lalalala затем входим в условие if делаем lalalala2 затем будет выполняться if пока что-то1 не станет равным 100 и только потом перейдет на until так?

Вот наглядный пример с которым мучаюсь, у меня есть таблица в ней в ячейке(8,1) есть текст далее в каком-то, неизвестном, кол-ве ячеек вниз пусто и потом опять в одной ячейке что-то есть надо объединить ячейку 8,1 со всеми пустыми ячейками,вниз, до след заполненной. И то же самое проделать с следующей.

z:=Excel.WorkBooks[1].WorkSheets[1].UsedRange.Rows.Count-1;
     a_:=8;
     NRow:= a_;
     NCol:= 1;
     dir:= Excel.WorkBooks[1].WorkSheets[1].Cells[NRow,NCol];
     repeat
     begin
     NCol:= 1;
     If dir<>'' then
      begin
      Excel.WorkBooks[1].WorkSheets[1].Range[Excel.WorkBooks[1].WorkSheets[1].cells[NRow,NCol],Excel.WorkBooks[1].WorkSheets[1].cells[NRow+1,NCol]].merge;
      //NRow:=NRow+1;
      dir:= Excel.WorkBooks[1].WorkSheets[1].Cells[NRow+1,NCol];
      end
      //else
      //NRow:=NRow+2;
      end;
     until NRow<z;

[p51x]

С каких пор иф оператор цикла? иф выполняется на каждой итерации цикла 1 раз.

[123456789igor]

Ну хорошо if выполнился 1 раз но когда его прошли что-то2 все равно меньше чего-то и тогда вернется к repeat и потом опять if выполниться ведь так?

Но в любом случае если в while вложен for как работать будет выполнит while затем все варианты for а потом вернется к while? что то я запутался

[Sciv]

На каждой итерации цикла while..do будет выполняться цикл for .. do. В общем, так, как Вы и сказали

выполнит while затем все варианты for а потом вернется к while

[123456789igor]

Но почему тогда в моем коде объединяется только 2 ячейки, вот как я понимаю работу этого кода:
z это кол-во всех строк-1
dir это переменная типа string в неё записывается значение ячейки
далее захожу в цикл repeat если ячейка не пустая то объединяем ячейки 8,1 и 9,1
далее dir присваиваем значение ячейки 9,1
и значение nrow становиться 10 а так как 10<чем число строк то проходим по циклу ещё раз но только dir уже это ячейка 9,1 и она объединена с 8,1 соответственно она не пустая и тогда так как nrow уже 10 должны объединиться 10,1 и 11,1 но этого не происходит

[Человек_Борща]

while и repeat циклы выполняют код внутри себя пока не выполнится их условие.

Чтобы выскочить из цикла нужно выполнить break, чтобы прыгнуть на след. виток - continue.

Больше инфы можно найти по ссылке "Основы delphi"

[Sciv]

Начнем разбор кода по-порядку:

     a_:=8;
     NRow:= a_;

это можно уложить в одну строчку NRow:=8;

     repeat
     begin
NCol:=1;
...
      end;
until NRow<z;

repeat..until сами по себе как begin..end, поэтому в дополнительных бегинендах не нуждаются. А NCol:=1 вообще можно убрать - она у Вас внутри цикла все-равно нигде не меняется.

Теперь по конкретной проблеме:

     dir:= Excel.WorkBooks[1].WorkSheets[1].Cells[NRow,NCol];
     repeat

раз уж используете repeat..until, почему не определять dir внутри цикла?

repeat
    dir:= Excel.WorkBooks[1].WorkSheets[1].Cells[NRow,NCol];

Далее цитирую Вас:

...и значение nrow становиться 10...

Не вижу, в каком месте NRow у Вас инкрементируется (точнее вижу, но, прошу прощения за каламбур, этот инкремент в комменте

Ну и если Вы поменяете repeat и dir:=... местами так, как я сказал выше, то отпадет необходимость в этой строчке:

dir:= Excel.WorkBooks[1].WorkSheets[1].Cells[NRow+1,NCol];

[123456789igor]

Ну да, забыл что под комментарием вот переделал

z:=Excel.WorkBooks[1].WorkSheets[1].UsedRange.Rows.Count-1;
     NRow:= 8;
     NCol:= 1;
     repeat
     dir:= Excel.WorkBooks[1].WorkSheets[1].Cells[NRow,NCol];
     If dir<>'' then
      begin
 Excel.WorkBooks[1].WorkSheets[1].Range[Excel.WorkBooks[1].WorkSheets[1].cells[NRow,NCol],Excel.WorkBooks[1].WorkSheets[1].cells[NRow+1,NCol]].merge;
      NRow:=NRow+1;
      dir:= Excel.WorkBooks[1].WorkSheets[1].Cells[NRow+1,NCol];
      end
      else
      NRow:=NRow+2;
     until NRow>=z;

Так компилируется но при выполнении excel не запускается и просто висит в процессах соответственно и программа тоже

[Sciv]

но при выполнении excel не запускается и просто висит в процессах

Потому что где-то в коде нет Excel.Visible:=true; (или типа того, не помню точно, но в инете 100% где-нибудь есть инструкция)

И, кстати, тот код, который у Вас приведен сейчас, объединяет ячейки попарно - так и надо?


UPD. Заглянул в свою старую программулину - точно Excel.Visible:=true;

[123456789igor]

Есть((( я скинул отрывок проги