вопрос насчет if

[Evil_Net]

Писал небольшую программку, заметил то ли глюк, то ли свою ошибку в реализации. Хотел спросить у гуру!

Check(UserInfo: Integer): Boolean;

if Check(UserInfo) then
// далее код выполнения

Check это функция, в которую передаётся число, далее происходят расчеты, результат True или False
При компиляции Debug работает как надо, в Release сразу в if выполняется код, как-будто результат функции всегда True

[IvaniuS]

В Debug включаются доп директивы компилятора, попробуйте методом научного тыка по очереди выключать их в Debug и узнаете какая вам нужна (Грешу на range и Overflow), но может быть конечно и Optimization.
Если Optimization - то смотреть обязательно ASM код во что превратил компилятор и почему считает что значение всегда true.

[Serge_Bliznykov]

как-будто результат функции всегда True

Так может быть, он и есть True ?
Какие у Вас факты/доводы, что это не так?
Вы выводите в функции отладочное сообщение (или пишете в лог-файл)?
или Вы прошлись отладчиком пошагово?
Ну и покажите, что у Вас за код в функции. И как вызываете.
Вполне возможно, что оптимизатор работает. Они так умеют.

[northener]

Сообщение от Serge_Bliznykov

Так может быть, он и есть True ?
Какие у Вас факты/доводы, что это не так?
Вы выводите в функции отладочное сообщение (или пишете в лог-файл)?
или Вы прошлись отладчиком пошагово?
Ну и покажите, что у Вас за код в функции. И как вызываете.
Вполне возможно, что оптимизатор работает. Они так умеют.

На 99 и 9 в периоде процентов уверен, что если в функции

Check(UserInfo: Integer): Boolean;

Написано что-то типа

Result:= 6 > 5;

, то оптимизатор выкинет эту т.н. функцию нафиг.

[IvaniuS]

Абсолютно согласен и там будет константа - поэтмоу нужно смотреть АСМ код который генерирует компилятор.

[Evil_Net]

Сообщение от Serge_Bliznykov

Так может быть, он и есть True ?
Какие у Вас факты/доводы, что это не так?
Вы выводите в функции отладочное сообщение (или пишете в лог-файл)?
или Вы прошлись отладчиком пошагово?
Ну и покажите, что у Вас за код в функции. И как вызываете.
Вполне возможно, что оптимизатор работает. Они так умеют.

Уверен что он в большинстве случаев не True. Код посмотреть сейчас не могу, но приведу пример:

Check(UserInfo: Integer): Boolean;
var
  n : Integer;
begin
  n := 5;
  if UserInfo = 5 then
    Result := True;
end;

Может он так работает потому что нужно добавить было?

else Result := False;

[Evil_Net]

Только посмотрел код, действительно ошибка была в функции, забыл написать

else Result := False;

иначе она в любом случае возвращала True, даже если условие в функции было ложным.

[Filka]

function Check(UserInfo: Integer): Boolean;
begin
  Result := UserInfo = 5;
end;

[Аватар]

иначе она в любом случае возвращала True, даже если условие в функции было ложным.

Не может код из #6 всегда True возвращать. Вернее не так - если UserInfo<>5 он вернет чего угодно, в том числе и 0 может

[min@y™]

Хотелось бы глянуть, как на самом деле выглядит функция. Ведь существование приведённого кода - бред жэж.

Check(UserInfo: Integer): Boolean;
var
  n : Integer;
begin
  n := 5;
  if UserInfo = 5 then
    Result := True;
end;