Delphi справочник - Форум программистов - Навигация  
 A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z      По первой букве  
System     SysUtils     StrUtils     DateUtils     FileCtrl     ConvUtils     StdConvs     Math     Classes     Dialogs     Types     Variants    ПО Unit   Compiler directives     Directives     Keywords     Types     Variables     Constants     Functions     Procedures    По категории  
Подписаться на рассылку:
Клуб программистов


Основы Delphi
$Warnings
Деректива компилятора
Определяет, показывает ли Delphi предупреждениям компиляции unit
  
1 {$Warnings Off}

2 {$Warnings On}
Описание
Директива компилятора $Warnings определяет, будет ли показывать Delphi предупреждения компиляции или нет.

Предупреждения очень полезны для того, чтобы указать потенциальные или реальные проблемы кода. Вы должны всегда включать данную опцию, и идеально всегда исправлять ваш код так, чтобы не было никаких предупреждений компиляции.
Примечания
Значение по умолчанию - $Warnings On

$Warnings в вашем коде может быть установлена в on или off множество раз.
Похожие команды
$Hints  Определяет, показывает ли Delphi подсказки компиляции.

 
Пример кода : Выдаёт предупреждение, что возвращение значения из функции потерпит неудачу
var
  i : Integer;
begin
  // Включение предупреждений
  {$Warnings On}

  // Присвоение i известного значения
  i := 234;

  // Показ значения в начале
  ShowMessage('i     = '+IntToStr(i));

  // Вызов нашей плохо выполняемой функции
  i := GetValue;

  // Показ значения теперь
  ShowMessage('i теперь = '+IntToStr(i));
end;

// Функция, которая не в состоянии возвратить значение!
function TForm1.GetValue: Integer;
begin
  // Не делаем ничего!
end;
Предупреждающее сообщение :

[Warning] Unit1.pas[57]: Return value of function 'TForm1.GetValue' might be undefined

i = 234
i теперь = 12404492
 
Пример кода : Без предупреждения о не успешном возвращении значения из функции
var
  i : Integer;
begin
  // Включение предупреждений
  {$Warnings Off}

  // Присвоение i известного значения
  i := 234;

  // Показ значения в начале
  ShowMessage('i     = '+IntToStr(i));

  // Вызов нашей плохо выполняемой функции
  i := GetValue;

  // Показ значения теперь
  ShowMessage('i теперь = '+IntToStr(i));
end;

// Функция, которая не в состоянии возвратить значение!
function TForm1.GetValue: Integer;
begin
  // Не делаем ничего!
end;
Код не выдаст никакого предупреждающего сообщения

i = 234
i теперь = 12404492
 



© Блог программистов   |  Создание и продвижение сайтов - "Веб сателлит"  |  Ссылки  |     |  Английская версия