Не пойму как работает рекурсия

[googl]

Вот процедура прямого обхода дерева.

procedure prObh(Node:Pnode);
begin
  if node<>nil then
  begin
   form1.Edit1.Text := form1.Edit1.Text+node.NKey+' ';
   probh(node.pLeft);
   probh(node.pRight);
  end;
end;

Вот смотрите, если условие выполняется-вызывается probh(node.pLeft);
Если не выполняется probh(node.pRight);
Но вот не могу понять как это происходит. Они же в одном begin-end стоят. Помогите разобраться

[GunSmoker]

Не можешь понять, потому что неправильно трактуешь.

Если условие выполняется, то они вызываются оба. Один за другим - ровно как и написано.

Если условие не выполняется, то мало того, что ни один из них не вызывается, так ещё и в form1.Edit1.Text ничего не приписывается.

[kettanaito]

googl, присоединившись к предыдущему оратору разъясню:

if Условие выполнено then 
begin
Действия при выполненом условии
end 
else
begin
Действия при не выполненом условии
end;

Все остальные процедуры/функции/что-либо, которые описаны до или перед этой схемой будут выполнятся без каких либо условий, всегда.

[googl]

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

googl, присоединившись к предыдущему оратору разъясню:

if Условие выполнено then 
begin
Действия при выполненом условии
end 
else
begin
Действия при не выполненом условии
end;

Все остальные процедуры/функции/что-либо, которые описаны до или перед этой схемой будут выполнятся без каких либо условий, всегда.

да я все это знаю. при пошаговом выполнении то не так получается.

вот посмотрите программу

[googl]

Поставьте точку останова при записывании в едит и дальше выполняйте пошагово. процедура же заново вызывается, поэтому до Right не доходит. а Right выполняется только тогда когда nil вот я и не пойму. Это же все из-за рекурсии. я просто не пойму каким образом это происходит. вы не поняли суть

[Пепел Феникса]

наверно потому что вы не доглядели что при рекурсии вы вечно входите в эту же функцию снова и снова?
и пока не будет условие false, вы не увидите перехода ко второму вызову самого себя.

[kettanaito]

Может быть так:

procedure vyvod(Node:pNode;item:TTreeNode);
var
  tmpItem:TTreeNode;
Begin
 k:=k+1;

  if node<>nil then
  begin
  tmpItem:=form1.TreeView1.Items.AddChild(item,node.NKey+'('+inttostr(node.nCount)+')');
    if tmpitem<>nil then vyvod(node.pRight,tmpItem) else vyvod(node.pLeft,tmpItem);
  end;
End;

[googl]

Сообщение от Пепел Феникса

наверно потому что вы не доглядели что при рекурсии вы вечно входите в эту же функцию снова и снова?
и пока не будет условие false, вы не увидите перехода ко второму вызову самого себя.

я вижу это и понимаю.

и пока не будет условие false, вы не увидите перехода ко второму вызову самого себя

но стоят же они оба в одном бегин енд. вот я и хочу понять каким образом это происходит. условие же не выполняется и по идее должно все окончится. я еще раз спрашиваю: это специфика рекурсии или что?

[kettanaito]

googl, честно говоря я не понимаю Вашего условия. Как можно сделать какую-либо операцию с Node если его значение равно nil? (Вы пытаетесь сделать vyvod(node.pLeft,tmpItem) при пустом узле, зачем?)

[googl]

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

Может быть так:

procedure vyvod(Node:pNode;item:TTreeNode);
var
  tmpItem:TTreeNode;
Begin
 k:=k+1;

  if node<>nil then
  begin
  tmpItem:=form1.TreeView1.Items.AddChild(item,node.NKey+'('+inttostr(node.nCount)+')');
    if tmpitem<>nil then vyvod(node.pRight,tmpItem) else vyvod(node.pLeft,tmpItem);
  end;
End;

ну это то понятно. так должно быть. но работает и в первом варианте. я же говорю: при пошаговом выполнении вызов right происходит при невыполнении условия