Заменить в Parent, Target, Name, Children etc %% на FindMember.
А также привести их все к "единому знаменателю". Ввести слово GetElemMember.
Типа:
TtfwWord elem_func Children [empty] 'Children' Self GetElemMember >>> Result ; // Children
TtfwWord elem_func Target nil 'Target' Self GetElemMember >>> Result ; // Target
STRING elem_func Name if ( Self IsString ) then begin Self >>> Result end else begin '' 'Name' Self GetElemMember >>> Result end ; // Name
Комментариев нет:
Отправить комментарий