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; //ºÜÖØÒª£¬·ñÔò£¬»áÒ» ......
ÕâÊÇÒ»¸öʵÀý£º
procedure TMainForm.Button1Click(Sender: TObject);
var
arr:array of array of string;
begin
setlength(arr,2,3);
arr[1,2]:='this is a test';
setlength(arr,0,0);
setlength(arr,4,5);
showmessage(arr[1,2]);
end;
ÉùÃ÷Ò»¸ö¶þάÊý×éµÄ·½·¨ÊÇÓ ......
ÒýÓÃ×Ô£ºhttp://www.delphifans.com/infoview/Article_6445.html
Delphi ¹Ø¼ü×ÖÏê½â
absolute
//ËüʹµÃÄãÄܹ»´´½¨Ò»¸öбäÁ¿, ²¢ÇҸñäÁ¿µÄÆðʼµØÖ·ÓëÁíÒ»¸ö±äÁ¿Ïàͬ.
var
Str: string[32];
StrLen: Byte absolute Str;
//Õâ¸öÉùÃ÷Ö¸¶¨Á˱äÁ¿StrLenÆðʼµØÖ·ÓëStrÏàͬ.
//ÓÉÓÚ×Ö·û´®µÄµÚ0¸öλ ......
1£®ÒýÑÔ
ÔÚÀûÓÃdelphi¿ª·¢Ó¦ÓóÌÐòµÄʱºò£¬Í¨³£ÎÒÃÇÒªÉè¼Æ³öºÜ¶à¸÷ÖÖ¸ñʽµÄÎĵµ¡¢±¨±í£¬¾³£Òª½øÐÐÎļþµÄ´´½¨¡¢±à¼¼°Ð޸ģ¬ËäÈ»delphi±¾ÉíÌṩÁ˺ܶàÉè¼Æ±¨±íµÄ¿Ø¼þ»ò·½·¨£¬µ«ÊÇ´æÔÚÃ÷ÏԵIJ»×㣬±ÈÈçÖÐÎÄÊäÈ룬Êý¾Ý¸ñʽµÄ¿ØÖƵȲÙ×÷ÆðÀ´±È½ÏÂé·³¡£ÀûÓôó¼Ò¶¼ºÜÊìϤµÄoffice¹¤¾ß½áºÏ¿ª·¢£¬Äܹ»ºÜºÃµÄ½â¾öÕâ·½ÃæµÄÎÊÌâ¡£ÒÔÏ ......