Пишет про Result: "H2077 Value assigned to 'function_1' never used"

[malor]

function function_1(): Boolean;
begin
  try

  except
    Result := false;

  end;

  Result := true;
end;

Про строку "Result := false;" пишет компилятор:
H2077 Value assigned to 'function_1' never used

Почему ?

Delphi XE

[eval]

потому что вы не знаете как работают исключения и механизмы try ..

[Serge_Bliznykov]

malor,
Вы привели ПОЛНЫЙ код функции?! (просто в таком виде он БЕССМЫСЛЕН).
это всё равно, что написать:

function function_1(): Boolean;
begin
  Result := false;
  Result := true;
end;

(можете попробовать, кстати, откомплировать )

во-вторых, warning - это не ошибка, это ПРЕДУПРЕЖДЕНИЕ (компилятор подсказывает, что, возможно, Вы этим куском кода совсем другой алгоритм хотели организовать, но что-то упустил..

[malor]

Код функции не полон.

Переместил "Result := true;" вверх и теперь ворнинга нет.

function function_1(): Boolean;
begin

  Result := true;
  try
  except
    Result := false;
  end;
end;

[Serge_Bliznykov]

Переместил "Result := true;" вверх и теперь ворнинга нет.

что и требовалось доказать.
Скажем спасибо умному компилятору Delphi и впредь будем внимательнее, да?

[eval]

не важно полон или не полон,
главное что есть ситуация когда "never used", а вот почему?

[hon]

begin
  try
  except
    Result := false;
  end;
  Result := true;
end;

Прдеположиим в try произошло исключение. Функция вернет false. Но после try вы устанавливаете результа = true. То-есть функция по-любому вернет true. Это вам не C. Установка result не прерывает работу функции.

Правильный код:

begin
  Result := true;
  try
  except
    Result := false;
  end;
end;