Скажите, а есть ли возможность динамического создания класса в программе. Допустим есть несколько классов (наследники) от родителя и в программе надо динамически выбрать, какой из них использовать. Как можно это сделать? Что-то типа type any но только для классов.

Вроде, CREATE OBJECT поддерживает динамическое задание типа, т.е. когда имя типа задается полем. Есть еще оператор =? для присвоения с приведением типа. Так что должно получиться.

Привет, Сергей,

это так, но для create object нужно указать объект создания, а потом уже его тип... Так вопрос в том, как объявить этот объект

DATA: lcl_any type ref to ????...

C родителями и потомками все легко... Задаешь тип родителя, для потомков он подходит... А вот как быть, ели родителя нету, просто набор классов...

Через интерфейсы пробовал, но знающие люди надавали по рукам со словами, что не для этого интерфейсы придуманы

Костя, привет!
Дык можно через интерфейсы. В этом случае, всю кухню по выбору конкретного имени класса убирают в еще один класс "factory", который создает экземпляр нужного класса, а на выход выдает ссылку на интерфейс.

У меня было два варианта.

1. Это объявление интерфейса и реализация этого интерфейса классами...

тогда

data: lcl_class type ref to INTERFACE

ну и соответственно

create object lcl_class type (class_name)

Собственно, такой подход используется в BADI... Но ведь по сути интерфейсы не для того служат. Ведь они-то, насколько я сам понимаю, в основном нужны в ABAP для множественного наследования (т.к. в стандарте этого не предусмотрено - класс может иметь только одного родителя). А вот интерфейсы позволяют использовать множественное наследование.

2. Объявление общего родителя

тогда

data: lcl_class type ref to PARENT_CLASS_NAME

и

create object lcl_class type (child_class_name)

Тоже работает, просто в потомках нужные методы расширяются...

Но знающие люди говорят, что есть еще и третий способ... И без имени интерфейса, и без класса-родителя... Вот только как это реализовывается (в силу дефицита времени) не рассказывают...

Оно и 1, и 2 способы работают, но есть ощущение какой-то недосказанности...

Именно для того!


Если методы статические, то можно вызывать так (class_name)=>meth
или даже так (class_name)=>(meth_name).

Есть ещё, наверное, сложные способы, типа generate subroutine pool, которые объяснить действительно времени может не хватить.

Оба метода являются правильными. Наследовать методы или реализовывать интерфейсы — зависит от архитектуры системы классов: вдоль или поперёк.

Вот-вот-вот... по-моему клюет... Т.е. можно объявить

data: lcl_class_name type string

и потом

create object (lcl_class_name) type (class_type)

Сработает? Надо попробовать...

а если попробовать сделать так:

data: ref type ref to object.

create object ref type (class_type).

ну и потом с использованием ?=

И куда попадёт результат?

Давайте определимся, чьи методы хотим вызывать: класса или экземпляра?

Ну а куда потом с использованием ?= делать сужение?
В ту же самую ссылку на интерфейс, что и у автора топика в п.1.
И нафига козе баян?

Аналогично можно и data: d type ref to data использовать , а потом d->*->method. Но в любом случае, пока ссылка не типизирована, компилятор не позволит вызывать метод экземпляра. В противном случае, очевидно, была бы разрешена конструкция data: ref type ref to (class).

Это, собственно, понятно. Вопрос в том, где это потом использовать и какаова цель. Мне казалось, что вопрос в том, как сделать ANY для класса.
А вопрос индивидуален.

Такая вот штука работает, но без параметров:


А так с параметром:


Видимо, если у классов будут одинаковые интерфейсы включены, это облегчет жизнь.
Или попробовать воспользоваться PARAMETER-TABLE для call method.

А вот это действительно вариант! Был неправ.