как перепригнуть на другую фунцию?

[itwork]

Код: Выделить всё

Function nomer1:integer;
Begin
             . . .
           как например отсюда перепрыгнуть в другую функцию?
           незаканчивая следующих действиЙ в этой функции
             . . .
End;

Function nomer2:Real;
Begin
             . . .
            Вот перепригнуть СЮДА
             . . .
End;


ВОЖМОЖНО ЛИ ТАКОЕ? Если да то как сделать?

[SAK]

Никак! Надо перестроить код так, чтобы такой необходимости не возникало.

[shade]

см. setjmp/longjmp
но лутше постараться обойтись без них
лутше использовать "конечные автоматы"
procedure A(state: Integer);
begin
case state of
1: doA1;
2: doA2;
3: doA3;
end;
end;

procedure B;
begin
A(1);
doB1;
A(2);
doB2;
A(3);
end;
Или раздробить (или объединить) функции так, чтобы не было необходимости прыгать из одной в другую...

[SAK]

см. setjmp/longjmp

В данном случае это никак не подходит т.к. itwork желает войти в функцию минуя её инициализацию, что в Паскале недопустимо ни при каких обстоятельствах.

[Cheb]

А просто вызвать ту функцию слабо?