delphi pack classÊÇʲô£¿
×òÍí£¬ÎÒÔÚ³¢ÊÔ°ÑijЩ¿Ø¼þ´ÓD7°áµ½D2010ÉÏ¡£ÔÚ´¦ÀíAstaµÄʱºò£¬ Óм¸¸öÌáÊ¾ÌØ¹Ö£¬ ÎÒÃÇÒ»°ã¶¼ÊÇÕâÑùдÀàµÄ Txxx=class private public ¿ÉÊÇAstaµÄ×÷Õß¾¹È»ÊÇÕâÑùдµÃ Txxx=pack class//Õâ¸öÊÇʲôÒâ˼£¿¢Ù private public ÎÒÊÇÖ±½Ó°ÑPackɾµôÁË¡£¾Í²»ÖªµÀÊǺν⣿ »¹ÓÐÒ»¸ö Boolean(Str[0]):=xxx <>nil; ÎÒ¿¿£¬ÊDz»ÊDZíʾɶ¸ß¿Æ¼¼£¿¢Ú ¸ßÈËÖ¸µãһϡ£
pack class? ľ¼û¹ý£¬Â¥Ö÷°´ÏÂF1£¬½«°ïÖúcopy¹ýÀ´³ò³ò StrÊÇʲôÀàÐÍ£¬StringµÄ»°£¬ÎÒÔÚD7±àÒï²»¹ý¡£ Boolean(Str[0]) := xxx <>nil; Str[0]ת»»³ÉBooleanÀàÐͽøÐи³Öµ(Boolean¾ÍÊÇ0..1) Ó¦¸ÃÊÇ£º Txxx = packed class//Õâ¸öÊÇʲôÒâ˼£¿¢ÙѹËõ´æ´¢ private public end; packed class£¬Ñ¹Ëõ´æ´¢Àà ѹËõ´æ´¢Àà ÖеÄѹËõºÎ½â°¡£¿ Boolean(Str[0]):=xxx <>nil; ÕâÒ»¾äµÄÒâ˼ÊÇ: if xxx = nil then Str[0] := 0 (#0) else Str[0] := 1 (#1) Èç¹ûStrÊÇ×Ö·û´®»òÕß×Ö·ûÊý×飬Ӧ¸ÃÊÇ#1ºÍ#0 ÒýÓà ѹËõ´æ´¢Àà ÖеÄѹËõºÎ½â°¡£¿ ʹÀàµÄ×ֶΰ´×Ö½Ú¶ÔÆä£¬È±Ê¡ÊÇË«×Ö¶ÔÆë ²»¶® Boolean(Str[0]):=xxx <>nil; ÕâÖÖд·¨ºÍÔÀ´c#µÄÓÐÒ»ÖÖд·¨Ò»Ñù ¹À¼Æ¡£¡£¡£
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd() ¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book'); ʱÌáʾstradd䶨Òå... Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤! (ÔÚA ......
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£ ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Â𣿠¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£ µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË É¶É¶ÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer); var len,MaxDelete:Integer; P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë begin P:=PLongint(A);// È¡µÄ A µÄ ......
ÓÃDEDE´ò¿ªÒ»¸öDLL£¬ÕÒµ½ÐèÒªµÄº¯ÊýÁË£¬µ«ÊÇÏÔʾµÄ¶¼ÊÇ»ã±à´úÂ룬¿´²»¶®£¬¿ÒÇë¸ßÊÖפ×ã°ïæ°¡£¡ ÊÇÒ»¸öKEYPRESSÏìÓ¦º¯Êý£¬¹¦ÄÜÊÇÔÚ°´ÏÂenterºóÅжÏÊäÈëµÄ×Ö·û£¬ÎÒÏë°´ÕÕ×Ô¼ºµÄÐèÇóÌø×ª£¬µ«ÊÇ ÕÒ²»µ½Î»Ö㬸ßÊÖ ......
ÇëÎÊDelphiÓÐÊ÷ÐοؼþÂ𣿠ÔõÑùʹÓã¿ Ttreeview treeview.items.addchild(nil(Éϼ¶½Úµã),'°¸·¢Ê±·¢'(text)); raize ¿Ø¼þ°üÀïÃæÓУ¬csdnÓÐÏÂÔØµÄ ²é°ïÖúTTreeViewºÍTNodeÁ½¸öÀà TTreeView ......