Директива компилятора Delphi $Warnings – определяет, показывает ли Delphi предупреждениям компиляции

Директива $Warnings компилятора Delphi определяет, показывает ли Delphi предупреждениям компиляции.

Директива компилятора $Warnings: Выдаёт предупреждение, что возвращение значения из функции потерпит неудачу

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;

Директива компилятора $Warnings: Без предупреждения о не успешном возвращении значения из функции

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;