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

Образцы, куски исходников, вопросы. Обсуждаем программирование.
Ответить
Сообщение
Автор
Nikkolas
Сообщения: 2
Зарегистрирован: Вс окт 16, 2011 9:11 pm

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

#1 Сообщение Nikkolas » Пн окт 17, 2011 8:55 am

Не хочет компилироваться файл 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
Сообщения: 329
Зарегистрирован: Сб июл 11, 2009 3:59 pm

#2 Сообщение FT Support » Пн окт 17, 2011 8:21 pm

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

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

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

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

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

Nikkolas
Сообщения: 2
Зарегистрирован: Вс окт 16, 2011 9:11 pm

#3 Сообщение Nikkolas » Сб окт 22, 2011 11:28 am

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

Ответить