Как перейти в процедуру, в которой была вызвана другая процедура

[olenka.ke]

я нахожусь, например, в процедуре1. при каких-либо действиях из процедуры1 я перехожу в процедуру2. как потом в процедуре2 вернуться обратно в процедуру1???

[newerow1989]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure A;
procedure B;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure A;
begin
   //
   B;
   //
end;

procedure B;
begin
   //
   A;
   //
end;

end.

[BDA]

procedure B;
begin
    writeln('IN B');
    writeln('OUT B');
end;

procedure A;
begin
    writeln('IN A');
    B;
    writeln('OUT A');
end;

begin
    A;
end.

[olenka.ke]

вы меня не поняли. если рассматривать этот пример

procedure B;
begin
    writeln('IN B');
    writeln('OUT B');
end;

procedure A;
begin
    writeln('IN A');
    B;
    writeln('OUT A');
end;

begin
    A;
end.

то мне надо как то из процедуры B, которая вызывается в А, перейти обратно в А

[evg_m]

перейти обратно в А

то бишь ВЕРНУТЬСЯ РАНЬШЕ "положенного" срока

procedure A;
begin
///что-то делаем
Exit;
// а это делать не будем
end;

[type_Oleg]

Сообщение от olenka.ke

.. мне надо как то из процедуры B, которая вызывается в А, перейти обратно в А

Непонятно, что непонятно.
Любая процедура и функция выполняется, а потом когда выполнится, после слова end; в конце процедуры происходит возвращение туда, откуда вызвали.
В некоторых языках кстати, вместо end; так и пишется return, то есть возвращение.

PS Можно вернуться до end; , с помощью Exit, как написано в #5. Но естественно, вот так безусловно не имеет смысла писать Exit, тогда зачем все , что между Exit и end; . Обычно, что-то проверяется, типа

if x<0 then Exit;

[olenka.ke]

я пробовала exit - он не выводит из подпрограммы. возможно потому, что много составных операторов

[Аватар]

он не выводит из подпрограммы

выводит, если с ифами не напутано

[olenka.ke]

что значит "если с ифами не напутано", как там можно их напутать?

[Аватар]

Элементарно - код такой, что до него управление не доходит. Ошибка в логике или непонимание того, что пишешь. Бывает