Показать сообщение отдельно
Старый 30.08.2009, 23:16   #14
Dream
быдло
 
Регистрация: 05.08.2007
Сообщений: 1,435
Написано 614 полезных сообщений
(для 1,489 пользователей)
Ответ: К вопросу об указателях

ещё один интересный факт...
Type TInteger
	Field x1$;24
	Field x2%
End Type
Type TInteger2
	Field x1%;24
	Field x2%
	Field x3#
End Type
Type TInteger3
	Field x1%;24
	Field x2%
	Field x3$
	Field x4#
	
End Type
For counter = 1 To 5
CreateImage(150,10)
	i3.TInteger3=New TInteger3;порядок обьявления поменяйте 
           i2.TInteger2=New TInteger2;пару раз для того чтобы 
	i.TInteger=New TInteger;понять чтоя  хочу показать
	i3\x3="dasdasdasd"
	
Next
Print ""
Print "Type1 "
Print " "
For i.TInteger=Each TInteger

	Print Int (i)
Next
Print ""
Print "Type2 "
Print ""
For i2.TInteger2=Each TInteger2

	Print Int (i2)
Next
Print ""
Print "Type3 "
Print ""
For i3.TInteger3=Each TInteger3

	Print Int (i3)
Next
ПС. видим вот что - (как уже замечалось выше)20- поидее указатель(или что там) на сам обьект структы + 4 на каждое поле в типе в независимости от типа
ПС2. может кто уже и сам это сделал просто хочу чтобы это осталось в этом топике, для полного раскрытия темы

Последний раз редактировалось Dream, 30.08.2009 в 23:27.
(Offline)
 
Ответить с цитированием