Страница 1 из 1

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

Добавлено: Пн окт 17, 2011 8:55 am
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'

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

Добавлено: Пн окт 17, 2011 8:21 pm
FT Support
пожалуйста замените вот эту строчку:

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

procedure ObjectsDeleteAll(window: integer = 0; ObjType: TObjectType);
на вот эту:

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

procedure ObjectsDeleteAll(window: integer; ObjType: TObjectType);
должно помочь

Добавлено: Сб окт 22, 2011 11:28 am
Nikkolas
Спасибо! :D Заработало.