Собственно идея такова , создать связанный список типов и при необходимости заменить в первом типе значение на значение второго типа.
вот код:
увы выдаёт ошибку
Подскажите как правильно сделать !
хочется избежать пробежки по каждому типу в отдельности
Type tsecond ;второй тип
Field f
End Type
Type tfirst ;первый тип
Field ab.tsecond ,d ; ab.tsecond - ссылка на второй тип
End Type
Graphics 800,600
SetBuffer BackBuffer()
q.tfirst= jac() ;создание записи в первом типе
;q\d= 4
q\ab.tsecond =dak() ;создание записи во втором типе через первый
;q\ab\f= 1
; присвоение значения первого типа второму
While Not KeyHit(1)
;If ab.tsecond <> Null Then
q\ab\f = q\d
;EndIf
For q.tfirst=Each tfirst
Text 10,20,"q\d - "+q\d;+" | "+q\y+" q\d# - "+q\d#+ " " ;вывод значений x и y
Text 10,30, "q\ab\f - "+q\ab\f;+" | ";+ q\ab\f ;вывод z#
Next
Flip
Wend
Delete Each tsecond
Delete Each tfirst
End
WaitKey()
Function jac.tfirst()
Local pff.tfirst= New tfirst
pff\d = 4
Return pff
End Function
Function dak.tsecond ()
Local pdd.tsecond = New tsecond
pdd\f= 1
Return pdd
End Function