Директива компілятора Delphi $BoolEval – чи скорочуються обчислення під час операцій or або and

Директива $BoolEval компілятора Delphi чи скорочуються обчислення під час операцій or або and.

Директива компілятора $BoolEval: Перевірка змісту рядка

var
  FullString, EmptyString : string;

begin
  FullString  := 'Fred';
  EmptyString := '';

  // Вимкнення повної перевірки
  {$BoolEval Off}

  // Перевірка 4-го символу кожного рядка
  if (Length(FullString) >= 4) and (FullString[4] = 'd')
  then ShowMessage('4-ий символ FullString - d')
  else ShowMessage('4-ий символ FullString НЕ d');

  if (Length(EmptyString) >= 4) and (EmptyString[4] = 'd')
  then ShowMessage('4-ий символ EmptyString - d')
  else ShowMessage('4-ий символ EmptyString НЕ d');

  // Ввімкнення повної перевірки
  {$BoolEval On}

  // Перевірка 4-го символу кожного рядка
  if (Length(FullString) >= 4) and (FullString[4] = 'd')
  then ShowMessage('4-ий символ FullString - d')
  else ShowMessage('4-ий символ FullString НЕ d');

  // Тепер ми повинні захистити код від помилок
  try
    if (Length(EmptyString) >= 4) and (EmptyString[4] = 'd')
    then ShowMessage('4-ий символ EmptyString - d')
    else ShowMessage('4-ий символ EmptyString НЕ d');
  except
    on E : EAccessViolation do
    ShowMessage(E.Message);
  end;

end;