Директива компілятора 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;