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
 
Здесь нужно купить рекламу за 2 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

форум программистов

© Форум Delphi  |  Форум Pascal   |  Блог программистов   |  Исходники Delphi   |  Автор сайта  |  Ссылки   |  Английская версия