Определяет, показывает ли 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;
