Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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 Ö¸Ïò¶ÔÏóµØÖ·¿Õ¼ä£¬Òò´Ë¿ÉÒÔÓÃËüÀ´·ÃÎʶÔÏóµÄ³ÉÔ±º¯Êý£»ÔÚÀ༶±ðµÄ·


Ïà¹ØÎĵµ£º

delphi µ½j2ee¼¼ÊõתÐÍ ÐĵÃ

ÔÚÌÖÂÛÕâ¸ö»°Ìâ֮ǰ£¬±ØÐëҪ˵Ã÷µÄÊÇ£¬Èç¹ûÄã¸Õѧϰdelphi£¬Ç벻Ҫģ·Â£¬ÒòΪ̸²»ÉÏתÐÍ£»Èç¹ûÄãÓÃdelphiÒѾ­³ÉÏ°¹ß£¬²¢ÇÒÊìϤhtmlÓïÑÔ¡¢ÓÐBS½á¹¹»ù´¡¡¢¶ÔJAVAÓ﷨ûÓÐÕÏ°­£¨Èç¹ûÄã¿´²»¶®¼òµ¥µÄ»ù´¡JAVA´úÂ룬½¨ÒéÄ㻹ÊǼÌÐøÄãµÄd°É£©£¬Ï£ÍûÕâ¶ÎÄÚÈݶÔÄãÓÐËù°ïÖú£¬´Ë»°Ìâ²»ÌÖÂÛ¾ßÌå¼¼Êõ£¬Ö»ËµËµÎÒµÄѧϰ²½ÖèºÍÐĵá£
1¡¢ ² ......

Delphi 6.0¸ß¼¶±à³Ì

±¾ÊéÒÔʵÀýΪÖ÷Ïߣ¬¸¨ÒÔ±ØÒªµÄ¼¼Êõ±³¾°ÒªµãÀ´½²½âDelphi 6£®0±à³ÌµÄ¾«Ë裻±¾ÊéʵÀýÆ«ÖØÓÚ¶àýÌåºÍÍøÂç³ÌÐò¿ª·¢£¬ÆäÖÐÉæ¼°µ½OpenGL¡¢Indy×é¼þ¡¢XML¡¢Web BrokerºÍWebSnapµÈ¼¼Êõ¡£±¾Ê黹½²ÊöÁËDelphiÖеÄSQL±à³Ì£¬ÔÚÁ½¸ö¶ÌС¾«Á·µÄ³ÌÐòÖгä·ÖÔËÓÃÁËDelphiÊý¾Ý¿ª·¢¼¼Êõ£¬°üÀ¨BDE×é¼þµÄADO×é¼þµÄʹÓá£Í¨¹ý±¾Ê飬ÈöÁÕßÔÚ±à³Ì¹ ......

DelphiʹÓÃiniÅäÖÃÎļþÁ¬½ÓMS SQLÊý¾Ý¿â

ºÜÔç×ö¹ýµÄÒ»¸ödelphiÏîÄ¿£¬°ÑÀïÃæÓõ½µÄ¼¼Êõ×ܽáһϣ¬Ö÷ÒªÊÇÕë¶ÔÏóÎÒÕâÑùµÄdelphiÐÂÊÖ£¬¼¼ÊõÉÏ×ö¸ö»ýÀÛ°É£¡
¼ÙÉèÎÒÃǵÄÊý¾Ý¿âÅäÖÃÎļþServerInfo.iniÄÚÈÝÈçÏ£º
[ServerInfo]  
ServerIP=192.168.1.5
SQLDBName=Data 
SQLUserID=sa  
SQLPwd=  
ÎÒÃǶ¨ÒåÒ»¸öÁ¬½ÓÊý¾Ý¿âµÄ¹ý ......

Delphi±éÀúPanel×é¼þÉϵÄËùÓпؼþ

procedure frmMain.CLS; //Ö÷´°Ìå×Ô¶¨ÒåʼþCLS
var i:integer;
begin
  for i:=0 to panel5.ControlCount -1 do
  begin
    if panel5.Controls[i] is TEdit then  //Edit×é¼þ
    begin
       ((panel5.Contro ......

DELPHI²ÎÊý¼¸¸ö¸ÅÄîÉϵÄÇø±ð ÊÕ²Ø

DELPHI²ÎÊý¼¸¸ö¸ÅÄîÉϵÄÇø±ð ÊÕ²Ø
 ÒýÓòÎÊý£º
ÒýÓòÎÊýÓÃvar¹Ø¼ü×Ö±êʾ
procedure DoubleTheValue (var Value: Integer);
begin
  Value := Value * 2;
end;ÔÚÕâÖÖÇé¿öÏ£¬²ÎÊý¼È°ÑÒ»¸öÖµ´«µÝ¸ø¹ý³Ì£¬ÓÖ°ÑÐÂÖµ·µ»Ø¸øµ÷Óùý³ÌµÄ´úÂë¡£µ±ÄãÖ´ÐÐÍêÒÔÏ´úÂëʱ£º
var
  X: Integer;
begin
  X : ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ