[WipMore]

Как выключить работу процедуры(включить\переключить)?


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


Заранее спасибо!

[NumLock]

Код:

if CheckBox1.Enabled then Sleep(100500);

[Bargest]

Процедура - это код. Просто код. Байты в памяти. Их нельзя включить и выключить. Его можно выполнять или не выполнять.
Использование в одном случае одной процедуры, а в другом - другой делается элементарно:

Код:

If Условие then
  Procedure1
else
  Procedure2;

Или вариант поинтереснее - создать указатель на процедуру и вызывать через него. В сам указатель писать разные адреса.

[cotseec]

не совсем понятно, что имеется под включением/выключением и переключением, но может это:

Код:

procedure SomeProcedure
begin
...
   if что-то then exit // выключение
    else .....
...
   if что-то then
   begin
     SomeProcedure1;// включение
     exit; // переключение
   end else ...
end;

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

[robt]

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

стоит работа

работа ??? писать крестики нолики ???

[PS11011010]

Код:

While Not keypressed do begin
процедура_1;
процедура_2;
процедура_3;
end;
Событие_по_нажатию_кнопки_или_клавиши;

Возможно, автор имел ввиду это? Без уточнения можно только гадать.