COMPILE внутри OMIT

Clarion, Clarion 7

Модератор: Дед Пахом

Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Ответить
Аватара пользователя
Admin
Администратор
Сообщения: 4010
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 53 раза
Поблагодарили: 33 раза
Контактная информация:

COMPILE внутри OMIT

Сообщение Admin »

Ну вот что делать в таких случаях?

OMIT('_EndOfInclude_',_demo_)
_demo_ EQUATE(1)
SomeClass CLASS
SomeMethod PROCEDURE
COMPILE('END***',_test_)
SomeMethod1 PROCEDURE
END***
END
_EndOfInclude_

Нельзя внутри OMIT использовать COMPILE
но как мне тогда по условию внутри класса добавить метод SomeMethod1 который будет присутствовать только когда _test_ = 1
Аватара пользователя
Дед Пахом
Старичок
Сообщения: 3289
Зарегистрирован: 07 Июль 2005, 16:51
Откуда: Москва, Россия
Благодарил (а): 15 раз
Поблагодарили: 49 раз
Контактная информация:

Сообщение Дед Пахом »

да пусть метод будет. Только по _test_ = 1 сразу из него return делать...
С уважением, ДП
Аватара пользователя
Admin
Администратор
Сообщения: 4010
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 53 раза
Поблагодарили: 33 раза
Контактная информация:

Сообщение Admin »

В этот метод должен передаваться другой класс. Описание которого присутствует только если _test_ = 1
А это уже сложнее :(
Аватара пользователя
Дед Пахом
Старичок
Сообщения: 3289
Зарегистрирован: 07 Июль 2005, 16:51
Откуда: Москва, Россия
Благодарил (а): 15 раз
Поблагодарили: 49 раз
Контактная информация:

Сообщение Дед Пахом »

Фигня. Можно объявить метод
Met PROCEDURE(*MyClass)
а MyClass не объявлять вообще, и всё будет ок (пока к MyClass обращений нет).
С уважением, ДП
Аватара пользователя
Admin
Администратор
Сообщения: 4010
Зарегистрирован: 05 Июль 2005, 15:59
Откуда: Хабаровск
Благодарил (а): 53 раза
Поблагодарили: 33 раза
Контактная информация:

Сообщение Admin »

не знал. попробую такой вариант!
Ответить