delphiÖеÄTCollection
TCollection ÊÇTCollectionItenm¶ÔÏóµÄÒ»¸öÈÝÆ÷¡£
Àà¹ØϵTObject→TPersistent
¡¡¡¡Ã¿Ò»¸öTCollection¶¼ÓµÓÐÒ»×éTCollectionItem¶ÔÏó¡£
¡¡¡¡ÔÚÆäItemsÊôÐÔÊý×éÖУ¬TCcllection±£´æ¼¯ºÏÏîÄ¿µÄÒ»¸öϱꡣCount ÊôÐÔ°üº¬Á˼¯ºÏµÄÏîÄ¿ÊýÁ¿¡£Ê¹ÓÃAddºÍClear·½·¨¿ÉÒÔÏò¼¯ºÏÖмÓÈëÏîÄ¿ºÍ´Ó¼¯ºÏÖÐɾ³ýÏîÄ¿¡£
¡¡¡¡´ÓTCollection¼Ì³ÐµÄ¶ÔÏóÄܹ»°üº¬´ÓTCollectionItem¼Ì³ÐµÄ¶ÔÏó¡£ÀýÈ磬һ¸öTDBGridColumns¶ÔÏó°üº¬TColumn¶ÔÏó£¬ÕâÁ½¸öÀà±»TDBGrid¶ÔÏóÓÃÓÚ±íʾÍø¸ñ¡£Ï±íÁгöÁËÿһ¸öTCollection¶ÔÏóµÄ×ÓÀàÓëÏàÓ¦µÄTCollectionltem¶ÔÏóµÄ×ÓÀàÒÔ¼°Ê¹ÓÿØÖÆ×é¼þ¡£ÆäÖУ¬TQuryTableProducerºÍTWehDispetcherʹÓõĿؼþ¼Ì³Ð×ÔTWinContril¶ÔÏó¡£
TCollection×ÓÀà TCollectionItem×ÓÀà ¿Ø¼þ×é¼þ
TCheckConstraints TCheckConstraint ʹÓÃTfield¶ÔÏóµÄ¿Ø¼þ
TCookieCollection TCookie HTTPÏìÓ¦¶ÔÏó
TCoolBands TCoolBand TCoolBar
TDBGridColumns TColumn TDBGrid
TDependencies TDependency TService
TDisplayDims TDisplayDim TDecisionGrid
TFieldDefs TfieldDef TDatsSet
THeaderSections THeaderSection THeaderControl
TIndexDefs TIndexDef TTable
THTMLTableColumns THTMLTableColumn TQueryTableProducer
TListColumns TListColumn TListView
TSuatusPanels TSuatuspanel TStatusBar
TWebActionItems TwebActionitem TwebDispatcher
¡¡¡¡Ê¹ÓÃTCollectionºÍTCollectionitem×ÓÀàµÄ¿Ø¼þ£¬¶¼ÓÐÒ»¸öÓµÓÐÒ»¸ö¼¯ºÏ5µÄ¹«¿ªÊôÐÔ£¨ÀýÈ磬TStatusBarµÄPanelsÊôÐÔÓµÓÐÒ»¸öTStatusPanels)¡£Ò»¸ö±ê×¼µÄÊôÐÔ±à¼Æ÷£¬´ÓÖÖÊôÉÏ˵±»ÈÏΪÊǼ¯ºÏ±à¼Æ÷£¬Ëü±»ÊÚÒý×ÔObject Inspector£¬ÒԱ༼¯ºÏÖеÄÏîÄ¿¡£
ÊôÐÔÁбí
Count ·µ»Ø¼¯ºÏÖеÄÏîÄ¿ÊýÁ¿
ItemClass ±íʾ¼¯ºÏÏîÄ¿ÓÐÖÖÀà
Items Ìṩ¶Ô¼¯ºÏÖÐÏîÄ¿µÄ±äÖ··ÃÎÊ
·½·¨Áбí
~TCollection ɾ³ý¼¯ºÏ¼°ÆäÄÚµÄÿһÏîÄ¿
Add ´´½¨Ò»Ð¶ÔÏóʵÀý²¢¼Ó Èëµ½ItemsÊôÐÔÊý×éÖÐ
Assign ½«ÁíÒ»¼¯ºÏÓÐÄÚÈݸ´ÖƵ½Ö´Ðи÷½·¨µÄ¶ÔÏóÖÐ
Bcginupdate ʹÆÁÄ»¸üÐÂÔÝÍ£
Clear ´Ó¼¯ºÏÖÐɾ³ýËùÓÐÏîÄ¿
EndUpdate ʹÆÁÄ»Äܹ»ÖØнøÐиüÐÂ
FindItemID ·µ»ØID²ÎÊýÖ¸¶¨µÄÏîÄ¿
Insert ´´½¨TCollectionItem¶ÔÏó²¢¼ÓÈëµ½ItemsÊôÐÔÊý×éÖÐ
TCollection ´´½¨²¢³õʼ»¯Ò»¸ö¼¯ºÏ
ÊôÐÔ
TCollection::Count
¡¡¡¡ÓÃÓÚ·µ»Ø¼¯ºÏÖеÄÏîÄ¿ÊýÁ¿¡£
¡¡__property int Count = {read=getCount,nodefanlt};
¡¡¡¡CountÊôÐÔ°üº¬ÁËItemsÊôÐÔÊý×éÖе
Ïà¹ØÎĵµ£º
procedure mc_SplitStr(sourStr:String;splitChar:String;desLst:TStringList);
var
tmpStr:String;
sValue:String;
iStart,iPos:Integer;
begin
try
desLst.Clear; //ºÜÖØÒª£¬·ñÔò£¬»áÒ» ......
(Ò») ʹÓö¯Ì¬´´½¨µÄ·½·¨
Ê×ÏÈ´´½¨ Excel ¶ÔÏó£¬Ê¹ÓÃComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );
1) ......
×÷Õß: yangyxd תÔØÇë×¢Ã÷³ö´¦ http://hi.baidu.com/yangyxd 2009-3-12
ÂÛ̳ÀïÓйØÓÚHOOK APIµÄÌù×Ó£¬ µ«ÆäʵÏÖÔÚ·½Ê½ÏÔʾµÃÂé·³£¬ ÆäʵÏÖÔÚÀ¹½ØAPIÒ»°ã²»ÓÃÄÇÖÖ·½Ê½£¬ ´ó¶¼²ÉÓÃinline Hook API·½Ê½¡£ÆäʵҲ¾ÍÊÇÖ±½ÓÐÞ¸ÄÁËÒªÀ¹½ØµÄAPIÔ´ÂëµÄÍ·²¿£¬ÈÃËüÎÞÌõ¼þÌøתµ½ÎÒÃÇ× ......
ÓÐÒ»¶Îʱ¼äûÕý¾µÄÓÃdelphiÁË£¬Ç°Á½ÌìÏÂÔØÁËDelphi2010£¬ÓÃËüÀ´ÕÒÕÒDelphiµÄ¸Ð¾õ£¬°ÑдµÄһЩ¶«Î÷¹²Ïí³öÀ´£¬´ó¼Ò¹²Í¬Ñ§Ï°Ò»Ï£¬ºÇºÇ¡£
ÎÒÏë×öÒ»¸öË«É«ÇòµÄ·ÖÎöÈí¼þ£¬ÒÔÏÂÊÇÆäÖÐʵÏֵIJ¿·ÖÀàµÄµ¥ÔªÎļþ£¬ÆäËûÎļþºóÐøÒ»µãÒ»µãµÄ²¹Æ룬Óв»Í׵ĵط½£¬Ï£Íû´ó¼ÒÖ¸Õý£¬Ð»Ð»À²£¡
ÔÚʹÓÃDelphi2010ÊÇ£¬·¢ÏÖ¸öÎÊÌ⣬ÔÚÓÃshowº¯Êý ......
1£®ÒýÑÔ
ÔÚÀûÓÃdelphi¿ª·¢Ó¦ÓóÌÐòµÄʱºò£¬Í¨³£ÎÒÃÇÒªÉè¼Æ³öºÜ¶à¸÷ÖÖ¸ñʽµÄÎĵµ¡¢±¨±í£¬¾³£Òª½øÐÐÎļþµÄ´´½¨¡¢±à¼¼°Ð޸ģ¬ËäÈ»delphi±¾ÉíÌṩÁ˺ܶàÉè¼Æ±¨±íµÄ¿Ø¼þ»ò·½·¨£¬µ«ÊÇ´æÔÚÃ÷ÏԵIJ»×㣬±ÈÈçÖÐÎÄÊäÈ룬Êý¾Ý¸ñʽµÄ¿ØÖƵȲÙ×÷ÆðÀ´±È½ÏÂé·³¡£ÀûÓôó¼Ò¶¼ºÜÊìϤµÄoffice¹¤¾ß½áºÏ¿ª·¢£¬Äܹ»ºÜºÃµÄ½â¾öÕâ·½ÃæµÄÎÊÌâ¡£ÒÔÏ ......