Как экономично проверить булеву переменную?

[Иллидан]

Необходимо в зависимости от того, какой режим выбрал пользователь. Либо показывать графику на экране либо ничего не рисовать(что увеличивает скорости работы программы). Неужели, придется каждый раз проверять в месте где необходима графика: if x=true then рисуем. Получается тратится довольно много тактов. Или же сделать отдельную процедуру на выполнение алгоритма с выводом рисования. И отдельную процедуры для режима без вывода графики. Тогда получится, что процедурах будет содержаться почти один и тот же код, что тоже не желательно. Если какой-нибудь другой способ?

[SERG1980]

Можно и одной процедурой обойтись,

 procedure MyProc(gragika:boolean);
 begin
 end;

В теле процедуры опишите если grafika=true то рисуете
ну а при вызове процедуры подставляйте в параметры свой х

........
MyProc(x);
........

[Иллидан]

Ну да, но тогда придется проверять в теле процедуре каждый раз. А у меня там графика выводится раз 5 и в все разы в большом вложенном цикле.

[Квэнди]

вы считаете что вызов процедуры и одна проверка булевой переменной более ресурсоемка чем большой вложенный цикл ?

[Иллидан]

вы считаете что вызов процедуры и одна проверка булевой переменной более ресурсоемка чем большой вложенный цикл ?

Зачем, ну получается что-то типа такого
for i:=1 to 3100 do begin // основной цикл
....
for j:=1 to 32000 do begin //один из вложенных циклов
if условие выполняется then
if x=true then begin
canvas.textout(x,y,'text');
canvas.textout(x,y+15,'text');
end;
end;
...
end;

[THandle]

procedure Draw(X: Boolean);
begin
  if not X then
    Exit;
  //Рисуем без всяких проверок
end;

Иллидан, не понятно зачем на каждой итерации цикла проверять равна ли переменная x =true. Достаточно один раз её проверить перед запуском цикла. Ведь она же не изменится.

[evg_m]

type
  Tmyproc = procedure (....);

  procedure Graf(....);
  procedure text(....);

var
  procdraw: TMyproc;

  if grag then procdraw:=graf else procdraw:=text;


  for j:=1 to......
  begin
     ......
     procdraw(.....);
     .......
  end;

От супермодера: юзай теги CODE

[mutabor]

Во первых внутри цикла каждый раз проверять не надо, как правильно заметили она не изменится, проверки лишние.

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