Вызов процедуры из процедуры

[bilibian]

Привет.

procedure testprocedure;
var
i:integer;
begin

For i:=0 to 10 do
 begin
  if i = 1 then
   begin
    testprocedure;
    break; ????????
   end;
 end;

end;

У меня возникла небольшая "непонятка", если я вызываю текущую процедуру из текущей процедуры, нужно ли мне останавливать цикл который работал в текущей процедуре после вызова текущей процедуры?

Капец скороговорка

[type_Oleg]

Пока не могу сообразить, но мне кажется будет зацикливание - бесконечная рекурсия.
И потом, вот это

For i:=0 to 10 do
 begin
  if i = 1 then
   begin
    testprocedure;
    break; ????????
   end;
 end;

равносильно этому :

For i:=0 to 1 do
 if i = 1 then testprocedure;

PS Кстати, переменные i в процедурах - это разные переменные. В каждый вызов будет создаваться своя i, и они никак не связаны с другими i, на других уровнях рекурсии.

[northener]

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

мне кажется будет зацикливание - бесконечная рекурсия.

Именно она, родимая и любимая

[bilibian]

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

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

В данном примере да, но если изменить условие if, то я так не думаю.

То есть Break после вызова текущей процедуры из текущей процедуры нужно использовать, чтобы предыдущий уровень рекурсии дошел до своего логического завершения. Спасибо!

[northener]

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

То есть Break после вызова текущей процедуры из текущей процедуры нужно использовать, чтобы предыдущий уровень рекурсии дошел до своего логического завершения. Спасибо!

Брейк ни коим образом не с связан с рекурсивным вызовом процедур. Он только лишь вызывает безусловное прекращение выполнения цикла.

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

В данном примере да, но если изменить условие if, то я так не думаю.

Если изменить условие if так чтобы процедура не вызывалась из себя самой, то да. Но к чему/о чём тогда твой вопрос?

[kta87]

bilibian, вам пример рукурсии нужны или бесконечных циклов? Вы бы описали задачу приближенно подробнее.

[superedward]

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

Привет.

procedure testprocedure;
var
i:integer;
begin

For i:=0 to 10 do
 begin
  if i = 1 then
   begin
    testprocedure;
    break; ????????
   end;
 end;

end;

У меня возникла небольшая "непонятка", если я вызываю текущую процедуру из текущей процедуры, нужно ли мне останавливать цикл который работал в текущей процедуре после вызова текущей процедуры?

Капец скороговорка

Ваш код идентичен нижеследующему

procedure testprocedure;
begin
  testprocedure;
end;

[Arigato]

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

То есть Break после вызова текущей процедуры из текущей процедуры нужно использовать, чтобы предыдущий уровень рекурсии дошел до своего логического завершения. Спасибо!

При чем тут вообще предыдущий уровень? Он никак не связан с текущим, а break прервет цикл и ничего более.

[bilibian]

Если я хочу начать следующий уровень рекурсии мне необходимо завершить предыдущий так? Для этого я использую Break, чтобы цикл после вызова процедуры остановился, а так как после цикла в коде ничего нет, то и предыдущий уровень рекурсии прекратит существование.

Код который я опубликовал в первом посте он для примера, в оригинале цикл проходит по списку TList и сверяет нужный текст, если совпадение найдено, то делаем рекурсию, то есть запускаем процедуру заново.

[Arigato]

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

Для этого я использую Break

Почитайте, для чего используется break.