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

[Shahimat]

а отдельный поток не подходит по той причине, что в рамках some2 у меня бесконечный цикл с перебором массива, так вот, в этом случае необходимо в нужный момент отрубить поток, чтобы перебор не вылез за рамки массива, а это либо весьма сложно, либо трудозатратно с точки зрения скорости (либо проверяй где находится текущее положение бегунка ifthen, либо другими ненадежными способами).
Потоки я хочу использовать в проге, уже поверх some2, так-что тоже не то

[Filka]

Если добавить Abort в процедуру some1?

procedure some1;
begin
  ShowMessage('2');
  Abort; // <-- добавить
end;

procedure some2;
begin
  ShowMessage('1');
  some1;
  ShowMessage('3'); // <-- не выполнится
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  some2;
end;

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

В третьих, я делаю отдельный модуль, который не связан с SysUtils в котором сидит Exception.

Тогда не пойдёт...

[Shahimat]

Filka, я попробовал использовать эту идею, вообщем действительно abort крашит some2, но вот проблема возникает - abort кроме краша some2 крашит и все остальное( грубо говоря some2 - это основная мат.процедура расчета, которая подключается к остальной проге, так вот вся та прога тоже рубится... если есть возможность остановить краш на some2, то будет очень круто.
Вот что получается:

procedure some1;
begin
 ShowMessage('2');
 Abort; // <-- добавить
end;

procedure some2;
begin
 ShowMessage('1');
 some1;
 ShowMessage('3'); // <-- не выполнится
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 some2;
 ShowMessage('4'); // <-- не выполнится (((((
end;

[Shahimat]

Да, Abort работает еще и в SysUtils(
Еще вариант есть добавить некую глобальную метку Label, но у меня это не получилось не в какую, может что-то наподобие этого если

[Alex11223]

Так он ж просто исключение кидает.

{ Raise abort exception }

procedure Abort;

  function ReturnAddr: Pointer;
  asm
          MOV     EAX,[EBP + 4]
  end;

begin
  raise EAbort.CreateRes(@SOperationAborted) at ReturnAddr;
end;

[Shahimat]

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

Так он ж просто исключение кидает.

{ Raise abort exception }

procedure Abort;

  function ReturnAddr: Pointer;
  asm
          MOV     EAX,[EBP + 4]
  end;

begin
  raise EAbort.CreateRes(@SOperationAborted) at ReturnAddr;
end;

ну да, он не подходит
нужны еще варианты...

[northener]

2 Shahimat
Волшебные палочки существуют только в сказках. Но вы можете написать свою волшебную палочку, если осилите ответ p51x №18.
Если не осилите, тогда забудьте о этом своём пожелании!

[Shahimat]

northener, спасибо за конструктив, удачи вам в Хогвартсе

[northener]

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

northener, спасибо за конструктив, удачи вам в Хогвартсе

Да не за что.
А удачу в Хогвардсе я давно уже получил.
Но ваше пожелание - это пожелание типичного троешника. Который конечно "слышал где-то ранее некий звон" (возможно даже писал что-то, используя надыбанный в И-нете код), но не знает, где его слышал и о чём тот звон был.

[Shahimat]

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

Да не за что.
А удачу в Хогвардсе я давно уже получил.
Но ваше пожелание - это пожелание типичного троешника. Который конечно "слышал где-то ранее некий звон" (возможно даже писал что-то, используя надыбанный в И-нете код), но не знает, где его слышал и о чём тот звон был.

Я здесь не для того, чтобы выслушивать ваши нотации. Не знаете или не хотите делиться информацией - не пишите. Хватит засорять ленту сообщений.