Delphi 쵀RTTI
Ŀ¼
===============================================================================
¡Ñ RTTI ¼ò½é
¡Ñ Àà(class) ºÍ VMT µÄ¹Øϵ
¡Ñ Àà(class)¡¢ÀàµÄÀà(class of class)¡¢Àà±äÁ¿(class variable) µÄ¹Øϵ
¡Ñ TObject.ClassType ºÍ TObject.ClassInfo
¡Ñ is ºÍ as ÔËËã·ûµÄÔÀí
¡Ñ TTypeInfo – RTTI ÐÅÏ¢µÄ½á¹¹
¡Ñ »ñÈ¡Àà(class)µÄÊôÐÔ(property)ÐÅÏ¢
¡Ñ »ñÈ¡·½·¨(method)µÄÀàÐÍÐÅÏ¢
¡Ñ »ñÈ¡ÓÐÐòÀàÐÍ(ordinal)¡¢¼¯ºÏ(set)ÀàÐ굀 RTTI ÐÅÏ¢
¡Ñ »ñÈ¡ÆäËüÊý¾ÝÀàÐ굀 RTTI ÐÅÏ¢
===============================================================================
±¾ÎÄÅÅ°æ¸ñʽΪ£º
ÕýÎÄÓÉ´°¿Ú×Ô¶¯»»ÐУ»ËùÓдúÂëÒÔ 80 ×Ö·ûΪ±ß½ç£»ÖÐÓ¢ÎÄ×Ö·ûÒÔ¿Õ¸ñ·û·Ö¸ô¡£
(×÷Õß±£Áô¶Ô±¾ÎĵÄËùÓÐȨÀû£¬Î´¾×÷ÕßͬÒâÇëÎðÔÚÔÚÈκι«¹²Ã½ÌåתÔØ¡£)
ÕýÎÄ
===============================================================================
¡Ñ RTTI ¼ò½é
===============================================================================
RTTI(Run-Time Type Information) ·Òë¹ýÀ´µÄÃû³ÆÊÇ“ÔËÐÐÆÚÀàÐÍÐÅÏ¢”£¬Ò²¾ÍÊÇ˵¿ÉÒÔÔÚÔËÐÐÆÚ»ñµÃÊý¾ÝÀàÐÍ»òÀà(class)µÄÐÅÏ¢¡£Õâ¸ö RTTI µ½µ×ÓÐʲôÓô¦£¬ÎÒÏÖÔÚҲ˵²»Çå³þ¡£ÎÒÊÇÔÚÔĶÁ Delphi ³ÖÐø»úÖƵĴúÂëÖз¢ÏÖÁ˺ܶà RTTI µÄÔËÓã¬Ö»ºÃÏÈ°Ñ RTTI ѧϰһ±é¡£ÏÂÃæÊÇÎÒµÄѧϰ±Ê¼Ç¡£Èç¹ûÄã·¢ÏÖÁË´íÎóÇë¸æËßÎÒ¡£Ð»Ð»£¡
Delphi µÄ RTTI Ö÷Òª·ÖΪÀà(class)µÄ RTTI ºÍÒ»°ãÊý¾ÝÀàÐ굀 RTTI£¬ÏÂÃæ´ÓÀà(class)¿ªÊ¼¡£
===============================================================================
¡Ñ Àà(class) ºÍ VMT µÄ¹Øϵ
===============================================================================
Ò»¸öÀà(class)£¬´Ó±àÒëÆ÷µÄ½Ç¶ÈÀ´¿´¾ÍÊÇÒ»¸öÖ¸Ïò VMT µÄÖ¸Õë(ÔÚºóÎÄÓà VMTptr ±íʾ)¡£ÔÚÀàµÄ VMTptr µÄ¸ºµØÖ··½Ïò´æ´¢ÁËһЩÀàÐÅÏ¢µÄÖ¸Õ룬ÕâЩָÕëµÄÖµºÍÖ¸ÕëËùÖ¸µÄÄÚÈÝÔÚ±àÒëºó¾ÍÈ·¶¨ÁË¡£±ÈÈç VMTptr - 44 µÄÄÚÈÝÊÇÖ¸ÏòÀàÃû³Æ(ClassName)µÄÖ¸Õë¡£²»¹ýÒ»°ã²»Ê¹ÓÃÊýÖµÀ´·ÃÎÊÕâЩÀàÐÅÏ¢£¬¶øÊÇͨ¹ý System.pas Öж¨ÒåµÄÒÔ vmt ¿ªÍ·µÄ³£Á¿£¬Èç vtmClassName¡¢vmtParent µÈÀ´·ÃÎÊ¡£
ÀàµÄ·½·¨ÓÐÁ½ÖÖ£º¶ÔÏ󼶱ðµÄ·½·¨ºÍÀ༶±ðµÄ·½·¨¡£Á½ÕßµÄ Self Ö¸ÕëÒâÒåÊDz»Í¬µÄ¡£ÔÚ¶ÔÏ󼶱ðµÄ·½·¨ÖÐ Self Ö¸Ïò¶ÔÏóµØÖ·¿Õ¼ä£¬Òò´Ë¿ÉÒÔÓÃËüÀ´·ÃÎʶÔÏóµÄ³ÉÔ±º¯Êý£»ÔÚÀ༶±ðµÄ·
Ïà¹ØÎĵµ£º
¶ÔÏó¿Õ¼ä
ÄÚ´æ½á¹¹
¶ÔÏóµÄÄÚ´æ½á¹¹Êǹ̶¨µÄ£¬¶ÔÏó´´½¨Íê³Éºó¾ÍÎÞ·¨¸Ä±ä¡£ËüÖ÷Òª´æ´¢Á˶ÔÏóÖ±ÊôÀàµÄµØÖ·£¨µÈ¼ÛÓÚÀàµÄVMT£©£¬¶ÔÏó±¾ÉíµÄ³ÉÔ±Êý¾Ý£¬¶ÔÏóµÄ½Ó¿Ú·½·¨±íµØÖ·¡£½á¹¹ÈçͼËùʾ£º
˵Ã÷£ºÈôÀàδÉùÃ÷½Ó¿Ú£¬Ôò¶ÔÏó¿Õ¼ä²»´æ´¢½Ó¿Ú·½·¨±íµØÖ·¡£
Àà¿Õ¼äÓë¶ÔÏó¿Õ¼äµÄ¹Øϵ
Àà¿Õ¼äÓë¶ÔÏó¿Õ¼ä£º
ʾÀý£º·ÖÎö¶ÔÏóµÄ» ......
¸½¼þ×ÊÁÏ
*ÀàµÄÄÚ´æÐÅÏ¢£¨´úÂ룩
ʾÀý£º»ñÈ¡ÀàÐÅÏ¢
˵Ã÷£º±È¶Ôͨ¹ýÀàµØÖ·ÒÔ¼°Í¨¹ýÀà·½·¨»ñÈ¡ÐÅÏ¢µÄЧ¹û¡£
´úÂ룺
type
TMyObject = class(TObject)
private
FData: Integer;
protected
......
Êý×éÊÇ¿ÉÒÔͨ¹ýË÷ÒýÀ´ÒýÓõÄͬÀàÐÍÊý¾ÝµÄÁÐ±í¡£°´ÕÕ´æ´¢¿Õ¼äµÄ»ñÈ¡·½Ê½£¬Delphi
Ö§³ÖµÄÊý×éÀàÐÍÓÐÁ½ÖÖ£¬¼´¾²Ì¬Êý×éºÍ¶¯Ì¬Êý×é¡£Ëùν¾²Ì¬Êý×é¾ÍÊÇÔÚÉùÃ÷ʱ¾ÍÒѾȷ¶¨´óСµÄÊý×éÀàÐÍ£¬¶ø¶¯Ì¬Êý×éÊÇÖ¸Æä´óСÔÚÉùÃ÷ʱ²»ÄÜÈ·¶¨µÄÊý×飬¶¯Ì¬Êý×éµÄ´óСÔÚʹÓÃʱȷ¶¨¡£
ÉùÃ÷¾²Ì¬Êý×éµÄ·½Ê½·Ç³£¼òµ¥£¬Ö»ÒªÖ¸Ã÷Êý×鳤¶ÈºÍÊý¾ÝÀàÐÍ ......
1¡¢ ·ÅÒ»ÏÂmemo¿Ø¼þ¡¢Ò»¸öbutton¡¢opendialog
ÔÚbuttonµÄclickʼþÖÐ
if opendialog1.Execute then
memo1.Lines.LoadfromFile(opendialog1.filename);
2¡¢Àļòµ¥µÄÊ°¡
var
Mytxt : TStringList;
begin
MyText :=
TStringList('ÄãµÄÎı¾Îļþ¼°Â·¾¶');
&nbs ......
ת×Ô´ó¸»ÎÌhttp://www.delphibbs.com/keylife/iblog_show.asp?xid=30049
ÀϳÂÓÐÒ»¸öÔÚÍâµØ¹¤×÷µÄÅ®¶ù£¬²»Äܾ³£»ØÀ´£¬ÀϳºÍËýͨ¹ýÐżþÁªÏµ¡£ËûÃǵÄÐŻᱻÓʵÝԱͶµÝµ½ËûÃǵÄÐÅÏäÀï¡£
¡¡¡¡ÕâºÍSocketÄ£Ðͷdz£ÀàËÆ¡£ÏÂÃæÎÒ¾ÍÒÔÀϳ½ÓÊÕÐżþΪÀý½²½âSocket I/OÄ£ÐÍ¡£
¡¡¡¡Ò»£ºselectÄ£ÐÍ
¡¡¡¡Àϳ·dz£Ïë¿´µ½Å®¶ùµÄÐÅ¡£ÒÔÖ ......