Ну да. В принципе, если современная наука не знает других способов - то это решение вопроса.
Причём GROUP предпочтительней CLASS. Зачем платить больше, если и так всё работает ?
Спасибо за помощь !
Модератор: Дед Пахом
Ну да. В принципе, если современная наука не знает других способов - то это решение вопроса.
Код: Выделить всё
Que1 QUEUE
Name string(20)
END
Que2 QUEUE
City string(20)
street string(32)
END
SuperGrp GROUP
Names &QUEUE
Addresses &QUEUE
END
SuperGrp.Names &= Que1
SuperGrp.Addresses &= Que2
Спасибо ! Это уже совсем хорошо. Я бы даже сказал просто отлично !
Ну вот, только хотел поглумиться над "молодежью", дедушка опередил...
Код: Выделить всё
DumpQ Queue,Type
Id Cstring(20) ! Идентификатор переменной
Type String(1) ! Тип поля
Addr Any ! Адрес поля
AddrG &Group ! Адрес группы
AddrQ &Queue ! Адрес очереди
Address Ulong ! Истинный адрес группы
RecSize Long ! Размер поля
RecCount Long ! Количество записей
End
DumpClass Class,Type,Module('Dumper.Clw')
Q &DumpQ
DebugInfo Cstring(1000)
Construct Procedure
Destruct Procedure
AddField Procedure(String,*?)
AddField Procedure(String,*Group)
AddField Procedure(String,*Queue)
SaveBlob Procedure(*Blob)
LoadBlob Procedure(*Blob),Long,Proc
End
Код: Выделить всё
P.AddField('ZTstQ',TstQ)
P.AddField('ResQ',ResQ)
P.AddField('Qlist',QList)
P.AddField('QGroup',QGroup)