закончить выполнение процедуры из тела другой процедуры

[Alaysor]

есть програма бот для одной онлайн игры, принцип таков, что получается я вызываю 1 процедуру, которая вызывает вторую, которая потом опять вызывает первую та - третью, та - опять первую, но так как код в паскале выполняется последовательно, то я предполагаю, что у меня в запущенном екзешнике будет накапливаться куча посыланий на код который врядли когда будет доделан.. получается чтот тип такого

var i:integer;
procedure one;
begin
i:=i*999;
top;
end;

procedure two;
begin
i:=i*99;
top;
end;

procedure top;
begin
i:=i+20;
if(i>0) then one else two;
end;

тоесть когда я вызывают топ то получаю кучу запусков других процедур
как убить програмно процедуру предка которая вызвала процедуру потомка?

[Stilet]

ИМХО тут не кросссылками нужно делать а просто цикл замутить, и в цикле процедуры эти вызывать последовательно.

[Alaysor]

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

[SNUPY]

Я так и не понял... =(

var i:integer;
procedure one;
begin
 i:=i*999;
end;

procedure two;
begin
 i:=i*99;
end;

procedure top;
begin
 while(true)
  begin
   i:=i+20;
   if(i>0) then one else two;
  end;
end;

А вообще если хотите изменять адрес куда переходит процесс работы, то только через асму, т.к. все это в стеках процессора сидит...

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

сделайте функцию с типом boolean и далее если она вернет false то выходим с процедуры.

т.к. все это в стеках процессора сидит...

стек это область памяти.
а не часть процессора.

А вообще если хотите изменять адрес куда переходит процесс работы, то только через асму

exit и любой вызов функции меняет адрес след команды вообще то

так что прежде чем писать такое, надо подумать немного.

[Stilet]

но вопрос незакрыт и тоже имеет место быть ваши предложения по этому вопросу

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

то только через асму, т.к. все это в стеках процессора сидит...

Ога, чтоб антивирь понервничал. Такой себе сплойтик.

[Alaysor]

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

сделайте функцию с типом boolean и далее если она вернет false то выходим с процедуры.

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

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

может там вообще нельзя реализовать такую схему, может в них не будет условия выхода?

условием выхода есть вызов дочерней процедуры

[Stilet]

чтоб та в начале своего тела по этому ид убила предка...

Забудь. Честное слово затея с полиморфом добром не кончится...
Максимум что можно заменить процедуры классами, и грохать объекты.

условием выхода есть вызов дочерней процедуры

Хы... Но ведь у тебя все процедуры друг дружке дочери
Зациклится и вылетит прога с переполнением стека...

[SNUPY]

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

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


Ога, чтоб антивирь понервничал. Такой себе сплойтик.

Что есть сплойтик?

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

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

вы хоть представляете себе как идет выполнение процедур?
процедуры это вам не компоненты.

var i:integer;
function one:boolean;
begin
Result:=true;
i:=i*999;
if not top then begin Result:=false;exit;end;
end;

function two:boolean;
begin
Result:=true;
i:=i*99;
if i>50000 then begin Result:=false;exit;end;//условие выхода
if not top then begin Result:=false;exit;end;
end;

function top:boolean;
begin
Result:=true;
i:=i+20;
if(i>0) 
 then if not one then begin Result:=false;exit;end
 else if not two then begin Result:=false;exit;end;
end;

код не оптимизирован конечно но вродб рабочий.

хотя вообще это кривость.
благо у вас при таком случае стек переполнится.

тут циклом надо в общем то.(особенно учитывая задачу)

а у вас бесконечная рекурсия.

еще кстати можно через флаг сделать.(если флаг установлен то не вызывем дальше, а просто выходим)

Максимум что можно заменить процедуры классами, и грохать объекты.

и потом весело ловить AV.