Delphi µÄRTTI»úÖÆÇ³Ì½(Ðø)
http://www.delphibbs.com/delphibbs/dispq.asp?LID=2421470
±¾ÎÄÊÇ¡¶Delphi µÄRTTI»úÖÆÇ³Ì½¡·µÄÐøÆª£¬ÉÏÆªµØÖ·ÔÚ£º
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2420610
±¾ÎÄÉÏÆª»ù±¾ÉÏÊÇ
RTTI ÈëÃŽéÉÜ£¬ÐøÆª½éÉÜÁËËùÓÐ TypInfo.pas Öеĺ¯Êý£¬¸½¼ÓÁË Classes.pas¡¢Graphics.pas¡¢Controls.pas
Öеö RTTI Ïà¹Øº¯Êý¡£¶ÔÓڹؼüº¯ÊýµÄ´úÂëÌṩ»ã±à×¢ÊÍ¡£Ï£Íû±¾Îĸ²¸ÇÁË Delphi ÖÐ 80% µÄ RTTI
º¯Êý¡£Ê±¼ä²Ö´Ù£¬´íÎóÄÑÃ⣬¾´ÇëÅúÆÀÖ¸Õý¡£
±¾ÎÄÅŰæ¸ñʽΪ£º
ÕýÎÄÓÉ´°¿Ú×Ô¶¯»»ÐУ»ËùÓдúÂëÒÔ 80
×Ö·ûΪ±ß½ç£»ÖÐÓ¢ÎÄ×Ö·ûÒÔ¿Õ¸ñ·û·Ö¸ô¡£
(×÷Õß±£Áô¶Ô±¾ÎĵÄËùÓÐȨÀû£¬Î´¾×÷ÕßͬÒâÇëÎðÔÚÔÚÈκι«¹²Ã½Ìå×ªÔØ¡£)
Ä¿
¼
===============================================================================
¡Ñ
GetTypeData º¯Êý
¡Ñ GetPropInfo º¯Êý
¡Ñ FindPropInfo º¯Êý
¡Ñ GetPropInfos
º¯Êý
¡Ñ SortPropList º¯Êý
¡Ñ GetPropList
º¯Êý
------------------------------------------------------
¡Ñ
GetObjectPropClass º¯Êý
¡Ñ PropType / PropIsType º¯Êý
¡Ñ IsPublishedProp º¯Êý
¡Ñ
IsStoredProp º¯Êý
¡Ñ FreeAndNilProperties º¯Êý
¡Ñ SetToString / StringToSet
º¯Êý
¡Ñ GetEnumName / GetEnumValue / GetEnumNameValue
º¯Êý
------------------------------------------------------
¡Ñ GetOrdProp
º¯ÊýÏê½â
¡Ñ SetOrdProp º¯Êý
¡Ñ GetEnumProp / SetEnumProp º¯Êý
¡Ñ GetSetProp /
SetSetProp º¯Êý
¡Ñ GetObjectProp / SetObjectProp º¯Êý
¡Ñ GetStrProp / SetStrProp
º¯Êý
¡Ñ GetFloatProp / SetFloatProp º¯Êý
¡Ñ GetPropValue / SetPropValue º¯Êý
¡Ñ
TPublishableVariantType
class
------------------------------------------------------
¡Ñ
RegisterClass / FindClass ϵÁк¯Êý (Classes.pas)
¡Ñ IdentToInt / IntToIdent ϵÁк¯Êý
(Classes.pas)
===============================================================================
Õý
ÎÄ
===============================================================================
¡Ñ
GetTypeData
º¯Êý
===============================================================================
GetTypeData
º¯Êý¸ù¾Ý TTypeInfo Ö¸Õë»ñµÃ TTypeData µÄµØÖ·¡£
function GetTypeD
Ïà¹ØÎĵµ£º
ʹÓÃDelphiµ÷ÓÃWebServices½Ó¿ÚµÄ¼òµ¥Ó¦ÓÃʵÀý
Delphi´Ó6.0¾Í¿ªÊ¼Ö§³ÖWeb ServicesµÄ¿ª·¢ºÍÓ¦ÓÃÁË£¬±¾ÎÄͨ¹ýʹÓÃDelphi 7.0µ÷ÓÃÐÂÀË·¢ËͶÌÐŵÄWeb Service½øÐжÌÐÅÓ¦ÓóÌÐò¿ª·¢ÕâһʵÀýÏêϸµÄ½éÉÜÔÚDelphiÖÐÈçºÎ¿ª·¢»ùÓÚWeb ServicesµÄÓ¦ÓÃϵͳ¡£
µÚÒ»²½£¬×¼±¸¹¤×÷£¬Á˽âÐÂÀ˶ÌÐÅWeb Service¡£ÐÂÀË·¢ËͶÌÐŵÄWeb Serviceµ ......
¡¶DelphiÏÂÉîÈëWindowsºËÐıà³Ì¡·£¨¸½Â¼A Delphi±àÒëÖ¸Áî˵Ã÷£©
Õª³ÈË£ºÂé×Ó qq:71892967
Delphi¿ìËÙ¸ßСµÄ±àÒëÆ÷Ö÷ÒªÀ´×ÔObject PASCALµÄÑϽ÷£¬Ê¹ÓÃDelphiËæÊ±¶¼ÔÚÓë±àÒëÆ÷½»Á÷£¬´ó²¿·ÖÇé¿öϲ»ÐèÒª¸ÉÉæ±àÒëÆ÷µÄÔËÐУ¬µ«ÊÇÓÐʱҲÐèÒª¶Ô±àÒëÆ÷½øÐбØÒªµÄÉèÖá£
*************************************************** ......
//²Î¿¼µØÖ·£ºhttp://www.wangchao.net.cn/bbsdetail_41190.html
Ò»¡¢Î¢ÈíRegExp
1. ÏÂÔØ²¢°²×°×îаæµÄ"Microsoft(r) Windows(r) Script"
¡¡¡¡2. RegExp°üº¬ÔÚvbscript.dllÖÐËùÒÔÎÒÃDZØÐëÏÈ×¢²áregsvr32 vbscript.dll
¡¡¡¡×¢(°²×°ÁËIe5ºóĬÈÏÒѾ°üº¬¸Ã¿Ø¼þ)
¡¡¡¡3.ÔÚDelph ......
Rem Delete Delphi temporary file
Rem ****************************
@echo Delete Delphi temporary file
@dir/w/s *.~*
@echo ÒÔÉÏΪµ±Ç°Ä¿Â¼¼°×ÓĿ¼ÁÙʱÎļþ,Çë°´ÈÎÒâ¼üÈ·ÈÏɾ³ý!
@pause
@for /r . %%a in (.) do @if exist "%%a\*.~*" del "%%a\*.~*"
@echo ɾ³ý³É¹¦!
@pause
Rem ************************* ......
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2420610
Ŀ¼
===============================================================================
¡Ñ
RTTI ¼ò½é
¡Ñ Àà(class) ºÍ VMT µÄ¹ØÏµ
¡Ñ Àà(class)¡¢ÀàµÄÀà(class of class)¡¢Àà±äÁ¿(class
variable) µÄ¹ØÏµ
¡Ñ TObject.ClassType ºÍ TObject.ClassInf ......