Errorlevel: отключить предупреждения компилятора

<отключить-предупреждения-компилятора> = #errorlevel <параметр>

<параметр> - уровень сообщений об ошибках:

• 0 - только сообщения об ошибках;

• 1 - только ошибки и предупреждения;

• 2 - все;

• reset - сбрасывает значение в исходное (сообщения выдаются так, как установлено параметром compilers.ErrorLevel).

Директива #errorlevel может находиться в любом месте, разрешенном для директив компилятора, в т.ч. в проектном файле.

Действие директивы распространяется и на includ-файлы. Если в includ-файле файле тоже есть #errorlevel, то значение этой директивы действует только в рамках включенного файла.

Пример

В данном примере предупреждения об неиспользуемых параметрах для функции Ааа мы не получим, т.к. установлен уровень - только ошибки. А вот для функции Bbb мы их получим, т.к. значение - выводить всё.

В конце сбрасываем значение директивы, и если есть какие-то предупреждения, то они будут выведены (если конечно позволяет compilers.ErrorLevel).

Файл zzzi.vpp

//********************
#errorlevel 2
procedure Bbb(c: integer);
begin
end;

Файл zzz.vip

//********************
interface Test;
#include zzzi.vpp
#errorlevel 0

//--------------------
create view
as select
  *
from
  x$users
;

//--------------------
panel pnPropusk;
screen scPropusk '';
fields
buttons
  cmValue1 ,,,'Пример',,;

<<
	<.  Старт  .>
>>
end;
end;

//--------------------
procedure Aaa(a: integer; b: word);
begin
end;

//--------------------
handleEvent
cmInit:
{
  Bbb(1);
  Aaa(1, 2);
}
end;
#errorlevel reset
end.

Версия

Начиная с Атлантис 5.4.10.