Имею желание передать в процедуру указатель на класс для работы с ним, но не имею возможности это сделать.
Т.е. хочется, что-то вроде:
Код: Выделить всё
Map
TheSetup(xlsxwriter) ! TheSetup(*xlsxwriter)
end
xlsxwriter CLASS, TYPE
...
end
Loc:MyXLSX &xlsxwriter
Code
Loc:MyXLSX &= NEW(xlsxwriter)
If ~(Loc:MyXLSX &= NULL) then TheSetup(Loc:MyXLSX).
.....
TheSetup Procedure(xMyXLSX)
Code
Dispose(xMyXLSX) ! ERROR: Must be reference ....
Что-то я окончательно запутался. А как тогда передать в процедуру именно указатель на класс ?