Справочник функций и процедур Delphi: $Warnings

  Навигация по первой букве:

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

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

  Реклама:

 

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

2 {$Warnings On}

Google  
 
Описание
Директива компилятора $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
 


Copyright © 2004-2016 Delphi Sources (источник – "DelphiBasics.ru")
 


Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook