Завершение одной процедуры из другой

[Shahimat]

Здравствуйте! Вопрос следующий:
Имеется некая процедура:

Procedure some1;
begin
 ...
end;

Данная процедура была вызвана из другой процедуры:

Procedure some2;
begin
 ...
 some1;
 ...
end;

Как прописать содержимое процедуры some1 так, чтобы она принудительно завершала работу процедуры some2, при этом никак не изменяя содержимое some2 (нельзя добавлять условия в some2!)?

[Alex11223]

Нельзя почему?
Ну тогда разве что всю программу завершить. Или кинуть исключение (exception) если они есть в вашем паскале.

[Shahimat]

Такое требование. Завершать работу программы нельзя.
Собственно весь вопрос в том, как я понимаю, что необходимо зная указатель на данную процедуру принудительно его завершить другой спец.процедурой, только я не знаю какой. Может вдруг кто знает такую... Мне это очень важно

[Alex11223]

Требование кто дал?

Какой паскаль?

[p51x]

Запускайте эту процедуру в отдельном потоке/нити и убивайте их.

[Shahimat]

Алекс, возможно я не там написал тему, задача эта стоит в Delphi. Эта задача нужна мне лично, требования мои.

[Shahimat]

p51x, а если без потоков? Да, так можно сделать, но это не оптимально(

[Alex11223]

А вы уверены, что у вас точно такие требования, а не http://www.gunsmoker.ru/2008/10/x-y-z.html?

Ну в Дельфи исключения есть, ловите, кидайте.

[Shahimat]

Уважаемый модератор, возможно, вам пишут очень много тех, кто точно не знают, чего хотят, я здесь написал АБСОЛЮТНО точное требование, уж извольте.
Я уверен, подобную задачу можно решить, просто я лично не знаю конкретные шаги, потому и пишу сюда в надежде узнать ответ, в просторах интернета только и выпадает всякие EXIT которые само - собой... ну вы поняли

[Shahimat]

Исключения не совсем подойдут, их вызов сопровождается исключительной (ошибочной) ситуацией, это не решение...