В чем смысл: Result := Hf = -1; ?

[palpetrovich]

Все привет, туплю, не пойму как это работает, да и работает-ли вообще?

  Hf := FileOpen(aFileName, fmOpenReadWrite or fmShareExclusive);
  Result := Hf = -1;

из справки FileOpen:
Если файл успешно открыт, то функция возвращает дескриптор файла, иначе возвращается значение -1.

min@y™ "вангую..."

да что тут ванговать, ежу понятно понятно откуда текст .. я непонимаю именно это: Result := Hf = -1;

[min@y™]

вангую

{$TELEPATOR_MODE ON}

function CrackFile(const AFileName: string): Boolean;
var
  Hf: THandle;
begin
  Hf := FileOpen(aFileName, fmOpenReadWrite or fmShareExclusive);
  Result := Hf = -1 { INVALID_HANDLE_VALUE }; // вообще, логичнее <>, чтобы вернуть true при успехе

  if Result
    then Exit;
    
  try
    // тут работа с файлом (чтение и запись)
    // переменная возврата тоже может тут фигурировать
  finally
    CloseHandle(Hf);
  end;
end;

begin
  if not CrackFile('kernel32.dll')
    then writeln('ok')
    else writeln('shit!');
end;

{$TELEPATOR_MODE OFF}

[type_Oleg]

А что тут непонятного ?
Hf = -1 - это логическая операция сравнения. Если это истинно, то и возвращает значения True .
У функции же тип Boolean

То есть функция CrackFile как бы спрашивает :" а нет ли ошибки, а ?.."

[palpetrovich]

min@y™ "вангую..." - прошу прощения, недоглядел, у меня немного код другой:

//Проверка открыт-ли файл. True - файл уже открыт. Иначе - False.
function IsOpen(const aFileName : String) : Boolean;
var
  Hf : Integer;
begin
  Hf := FileOpen(aFileName, fmOpenReadWrite or fmShareExclusive);
  Result := Hf = -1;
  if not Result then FileClose(Hf);
end;

type_Oleg - вот!!!! Спасибо, дошло! ...говорю-ж, туплю

[min@y™]

у меня немного код другой

да как раз тот же самый 1 в 1, только без защиты от незакрытия файла в случае фейла.

[Serge_Bliznykov]

я непонимаю именно это: Result := Hf = -1;

установить логическую переменную-результат функции CrackFile в значение "истина", если файл не открылся, или в "ложь", если файл открылся успешно.

эта запись эквивалентна такой:

if Hf = -1 then  Result := true else  Result := false;

уп-с. я опоздал....