Отправлено: 01.02.22 20:53. Заголовок: Object -> Hash массив

Имеем заполненный GetList
Каждый элемент которого Object , как преобразовать
Object в Hash массив ? Там есть переменные которые в классе Tget,
PROTECTED а вот проанализировать их хотелось бы. Там много чего
интересного живёт однако :)

 Отправлено: 01.02.22 20:56. Заголовок: Вот такой допустим ..

Вот такой допустим

 
 __itemSetObj( {{"BBLOCK", {|| ... }}, {"BPREBLOCK", {|| ... }},  
 {"CNAME", "vid5"}, {"BREADER", {|| ... }}, {"OCONTROL", {{"NBOTTOM", 15}, {"XBUFFER", " Не печатать "},  
 {"CCAPTION", "Печать ценников  "}, {"NCAPCOL", 16}, {"NCAPROW", 8},  
 {"CCOLORSPEC", "w/b,w/n,w+/BG,n/bg*,n/BG,w/B,GR+/BG,N/R"}, {"AITEMS", {{" Не печатать ", NIL}, 
 {" 12 штук на A4 (70 x 65)", NIL}, {" 88 штук на A4 (25 x 25)", NIL}, 
 {" 190 штук на A4 (15 x 20)", NIL}, {" 10 штук на A4 (50 x 90)", NIL}}}, {"LDROPDOWN", .T.}, 
 {"NITEMCOUNT", 5}, {"NLEFT", 33}, {"ASAVESCR", {9, 33, 15, 65, 
 " тут я почикал "}}, {"LISOPEN", .F.}, {"NRIGHT", 65},  
 {"CTEXTVALUE", " Не печатать "}, {"NTOP", 8}, {"NTOPITEM", 1},  
 {"OVSCROLL", {{"ABITMAPS", {"arrow_u.bmu", "arrow_d.bmu", "arrow_e.bmu"}},  
 {"NBARLENGTH", 3}, {"CCOLORSPEC", "W/N,N/BG*"}, {"CSTYLE", "░▓"},  
 {"NEND", 14}, {"NOFFSET", 65}, {"NORIENT", 1}, {"NSTART", 10}, {"NTOTAL", 5}}},  
 {"NVALUE", 1}}}, {"CCOLORSPEC", "W/N,N/BG*,W/B,GR+/N"}, {"NROW", 8}, {"NCOL", 33}},  
 {{"SCROLLBAR",{5,2,17,2}},{"LISTBOX",{5,2}},{"GET",}} ) 
 

 Отправлено: 01.02.22 21:04. Заголовок: Dima Ты список ф-ий..

Dima
Ты список ф-ий смотрел http://www.kresin.ru/hrbfaq_3.html#Doc3 (внизу перед след. темой) ?

 Отправлено: 01.02.22 21:10. Заголовок: ты про это __objGetV..

ты про это __objGetValueList ?
не дает , пишет PROTECTED однако

 Отправлено: 01.02.22 21:17. Заголовок: aNames := __objGetMs..

aNames := __objGetMsgList( oObject, [lData], [nClassType] )
nClassType:
HB_MSGLISTALL 0 все переменные
HB_MSGLISTCLASS 1 переменные класса CLASS DATA
HB_MSGLISTPURE 2 переменные объекта DATA

 Отправлено: 01.02.22 21:22. Заголовок: SergKis пишет: __ob..

SergKis пишет:

цитата:

__objGetMsgList

Бесполезная штука , дала массив имен переменных , без значений

 Отправлено: 01.02.22 21:36. Заголовок: Dima пишет не дает ,..

Dima пишет

цитата:

не дает , пишет PROTECTED однако

Если сам собираешь hb, то можешь пробнуть пополнить CLASS GET методами для PROTECTED переменных, например
ACCESS x_VarGet INLINE ::xVarGet
ACCESS b_PreBlock INLINE ::bPreBlock
или как в классе синтаксис по PROTECTED :cBuffer
ACCESS buffer METHOD getBuffer()
ASSIGN buffer METHOD setBuffer( cBuffer )
...
METHOD getBuffer() CLASS Get
RETURN ::cBuffer
...
PS
или убрать в классе
PROTECTED:

 Отправлено: 01.02.22 21:40. Заголовок: Не хотел трогать цел..

Не хотел трогать целку класс , но если другого нормального способа нет
то придется крутить барабан , что то в этом плане пилить....
Спасибо Серёга !