ООП с наследованием

Поделиться116.05.2022 22:20:08

Автор: Webarion
Активный участник
Откуда: Москва
Зарегистрирован: 19.12.2021
Приглашений: 0
Сообщений: 213
Уважение: [+5/-0]
Позитив: [+19/-1]
Пол: Мужской
Возраст: 42 [1981-08-05]
Провел на форуме:
7 дней 9 часов
Последний визит:
Сегодня 19:38:17

Приветствую форумчан! Прошу поделиться простыми примерами реализации подобия ООП с наследованием. Желательно без сторонних библиотек. Интересует возможность использования Interface, ну и любые возможные реализации.
Исследую этот вариант: Ссылка
Но здесь мне не нравится использование макроса в конструкторе, если понадобится инициализировать много объектов, программа сильно вырастит. Понимаю, что речь идёт о килобайтах, но всё-же хочется более лаконичного решения.

Отредактировано Webarion (16.05.2022 22:40:45)

0

Поделиться217.05.2022 15:47:55

Автор: newJS
Активный участник
Зарегистрирован: 28.12.2015
Приглашений: 0
Сообщений: 209
Уважение: [+2/-0]
Позитив: [+8/-0]
Пол: Мужской
Провел на форуме:
2 дня 10 часов
Последний визит:
Сегодня 18:21:40

Webarion написал(а):

если понадобится инициализировать много объектов, программа сильно вырастит

запихни свой макрос в функцию и вызывай её до посинения, если скорость позволяет
функцию можно по адресу вызывать, немного быстрей чем стандартно

0

Поделиться317.05.2022 18:28:34

Автор: Webarion
Активный участник
Откуда: Москва
Зарегистрирован: 19.12.2021
Приглашений: 0
Сообщений: 213
Уважение: [+5/-0]
Позитив: [+19/-1]
Пол: Мужской
Возраст: 42 [1981-08-05]
Провел на форуме:
7 дней 9 часов
Последний визит:
Сегодня 19:38:17

newJS написал(а):

запихни свой макрос в функцию и вызывай её до посинения, если скорость позволяет
функцию можно по адресу вызывать, немного быстрей чем стандартно

Пробовал, но пока не получилось в этом скрипте.

0

Поделиться423.05.2022 17:33:04

Автор: Webarion
Активный участник
Откуда: Москва
Зарегистрирован: 19.12.2021
Приглашений: 0
Сообщений: 213
Уважение: [+5/-0]
Позитив: [+19/-1]
Пол: Мужской
Возраст: 42 [1981-08-05]
Провел на форуме:
7 дней 9 часов
Последний визит:
Сегодня 19:38:17

Пока остановился на этой реализации:

Код:

Interface IObject
  SetVar(Var)
  GetVar()
  Free()
EndInterface 

Structure pObject 
  *Methods
  Var.i
EndStructure 

Structure pMethods 
  *SetVar
  *GetVar
  *Free
EndStructure 


; Метод записи параметра
Procedure SetVar(*this.pObject, Var) 
  *this\Var = Var
EndProcedure
; Метод чтения параметра
Procedure GetVar(*this.pObject) 
  ProcedureReturn *this\Var
EndProcedure 

; Деструктор
Procedure Free(*this) 
  FreeMemory(*this) 
EndProcedure 

; Инициализация методов
Procedure Init_Methods(*Methods.pMethods)
  *Methods\SetVar = @SetVar()
  *Methods\GetVar = @GetVar()
  *Methods\Free = @Free()
EndProcedure
Init_Methods(pMethods.pMethods)

; Инициализация параметров
Procedure Init_Vars(*this.pObject, Var) 
  *this\Var = Var
EndProcedure  

; Конструктор
Procedure.l New_Object(Var) 
  Shared pMethods 
  *this.pObject = AllocateMemory(SizeOf(pObject)) 
  *this\Methods = @pMethods 
  Init_Vars(*this, Var) 
  ProcedureReturn *this 
EndProcedure 


; Наследование ---------------------------------- 

; Интерфейс наследника
Interface IExObject Extends IObject
  SetExVar(Var)
  GetExVar()
EndInterface 

; Расширяем параметры
Structure pExObject Extends pObject 
  ExVar.i
EndStructure 

; Метод установки параметра наследника
Procedure SetExVar(*this.pExObject, Var) 
  *this\ExVar = Var
EndProcedure

; Метод чтения параметра наследника
Procedure GetExVar(*this.pExObject) 
  ProcedureReturn *this\ExVar
EndProcedure 

; Структура методов наследника
Structure pExMethods Extends pMethods 
  *SetExVar
  *GetExVar
EndStructure 

; Инициализация методов наследника
Procedure Init_ExMethods(*Methods.pExMethods) 
  Init_Methods(*Methods)
  *Methods\SetExVar = @SetExVar()
  *Methods\GetExVar = @GetExVar() 
EndProcedure 
Init_ExMethods(pExMethods.pExMethods) 

; Инициализация параметров наследника
Procedure Init_ExVars(*this.pExObject, Var, ExVar) 
  SetVar(*this, Var)
  *this\ExVar = ExVar
EndProcedure  

; Конструктор наследника
Procedure.l New_ExObject(Var, ExVar) 
  Shared pExMethods 
  *this.pExObject = AllocateMemory(SizeOf(pExObject)) 
  *this\Methods=@pExMethods 
  Init_ExVars(*this, Var, ExVar) 
  ProcedureReturn *this 
EndProcedure 

; Деструктор наследника
Procedure Free_ExObject(*this) 
  FreeMemory(*this) 
EndProcedure 

; ---------------------------------- 

Debug "--- MyObject ---"
MyObject.IObject = New_Object(11)
Debug "'Var' при инициализации = " + MyObject\GetVar()

MyObject\SetVar(22)
Debug "'Var' после SetVar = " + MyObject\GetVar()


Debug "--- MyExObject ---"
MyExObject.IExObject = New_ExObject(33, 44) 

Debug "'Var' при инициализации = " + MyExObject\GetVar()
Debug "'ExVar' при инициализации = " + MyExObject\GetExVar()

MyExObject\SetVar(55)
MyExObject\SetExVar(66)

Debug "'Var' после SetVar = " + MyExObject\GetVar()
Debug "'ExVar' после SetExVar = " + MyExObject\GetExVar()

Для других вариантов тема открыта.

Отредактировано Webarion (23.05.2022 20:12:06)

0