Несмотря на давность темы - решил оживить её. Вот один вариант:
Type TA
Field x%, y%
Field str$="This is type A"
EndType
Type TB
Field x%, y%
Field str$="This is type B"
End Type
Type TC
Field x%, y%
Field str$="This is type C"
End Type
Function Func(obj:Object)
If TA(obj) Print TA(obj).str
If TB(obj) Print TB(obj).str
If TC(obj) Print TC(obj).str
End Function
Local aaa:TA=New TA
Local bbb:TB=New TB
Local ccc:TC=New TC
Func(ccc)
Func(aaa)
Func(bbb)
Я вот хотел создать тему с таким вопросом... Так что, если у кого есть дельное решение данного вопроса - напишите, please!
