Illegal expression в if then else (HELP!!!!)

[gvido]

Робяты, помогите убогому, мне. Никак не могу понять чего не нравится лазарусу при сборке dspack. Ругается на ELSE в этой функции:

Код: Выделить всё

function TMediaObjectImpl.Lock(bLock: Longint): HResult; stdcall;
begin
  if (bLock <> 0) then Lock else Unlock;
  Result := S_Ok;
end;

[Ism]

Кажись после Lock должно быть ;
Скорее всего при неправильном синтаксисе оно воспринимает чтото как переменную

[vitaly_l]

Lock(bLock: Longint) и Lock <= конфликтуют? Переименуйте и возможно перестанет ругаться.

[gvido]

Это модуль DirectShow9. Изменил имена protected процедур этого класса Lock и Unlock на pLock и pUnLock. Собралось!!!! Спасибо. Странная логика тут. ругался бы на Lock и unlock, Так ведь нет, ругался else, чтоб его пополам разорвало!!! Попробуй догадайся.

Еще раз, СПАСИБО!!!

[Лекс Айрин]

Ism, перед else не ставится ";"

gvidoлогика нормальная. Ругается на первый оператор, которые не попадает в текущую (анализируемую) синтаксическую конструкцию. Компилятор же не настолько интеллектуален чтобы понять, что проблема в другом месте.

[GAMER]

Для каких целей собираете dspack? Где брали? С какой версией fpc будете использовать?
Интересуюсь в связи с проблемой http://www.freepascal.ru/forum/viewtopic.php?f=5&t=10396