Проблема с процедурой ObjectsDeleteAll

[Nikkolas]

Не хочет компилироваться файл StrategyInterfaceUnit.pas

Ругается на вот этот участок кода:

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

procedure ObjectsDeleteAll(window: integer = 0; ObjType: TObjectType);
begin
  if assigned(IntrfProcsRec.ObjectsDeleteAll) then
    IntrfProcsRec.ObjectsDeleteAll(window, integer(ObjType));
end;

Вот что выдает компилятор Delphi7:
[Error] StrategyInterfaceUnit.pas(1513): Default value required for 'ObjType'
[Fatal Error] ObjectsTest.dpr(9): Could not compile used unit 'StrategyInterfaceUnit.pas'

Помогите разобраться в чем дело?

[FT Support]

пожалуйста замените вот эту строчку:

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

procedure ObjectsDeleteAll(window: integer = 0; ObjType: TObjectType);

на вот эту:

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

procedure ObjectsDeleteAll(window: integer; ObjType: TObjectType);

должно помочь

[Nikkolas]

Спасибо! Заработало.