DelphiÖеÄÈÝÆ÷Àà
DelphiÖеÄÈÝÆ÷Àà
×÷Õß ³ÂÊ¡
´ÓDelphi 5¿ªÊ¼VCLÖÐÔö¼ÓÁËÒ»¸öеÄContnrsµ¥Ôª£¬µ¥ÔªÖж¨ÒåÁË£¸¸öеÄÀ࣬ȫ²¿¶¼ÊÇ»ùÓÚ±ê×¼µÄTList Àà¡£
TList Àà
TList Ààʵ¼ÊÉϾÍÊÇÒ»¸ö¿ÉÒÔ´æ´¢Ö¸ÕëµÄÈÝÆ÷À࣬ÌṩÁËһϵÁеķ½·¨ºÍÊôÐÔÀ´Ìí¼Ó£¬É¾³ý£¬ÖØÅÅ£¬¶¨Î»£¬´æÈ¡ºÍÅÅÐòÈÝÆ÷ÖеÄÀ࣬ËüÊÇ»ùÓÚÊý×éµÄ»úÖÆÀ´ÊµÏÖµÄÈÝÆ÷£¬±È½ÏÀàËÆÓÚC++ÖеÄVectorºÍJavaÖеÄArrayList£¬TList ¾³£ÓÃÀ´±£´æÒ»×é¶ÔÏóÁÐ±í£¬»ùÓÚÊý×éʵÏֵĻúÖÆʹµÃÓÃϱê´æÈ¡ÈÝÆ÷ÖеĶÔÏó·Ç³£¿ì£¬µ«ÊÇËæ×ÅÈÝÆ÷ÖеĶÔÏóµÄÔö¶à£¬²åÈëºÍɾ³ý¶ÔÏóËٶȻáÖ±ÏßϽµ£¬Òò´Ë²»ÊʺÏƵ·±Ìí¼ÓºÍɾ³ý¶ÔÏóµÄÓ¦Óó¡¾°¡£ÏÂÃæÊÇTListÀàµÄÊôÐԺͷ½·¨ËµÃ÷£º
ÊôÐÔ
ÃèÊö
Count: Integer;
·µ»ØÁбíÖеÄÏîÄ¿Êý
Items[Index: Integer]: Pointer; default
ͨ¹ýÒÔ£°Îªµ×µÄË÷ÒýϱêÖ±½Ó´æÈ¡ÁбíÖеÄÏîÄ¿
·½·¨
ÀàÐÍ
ÃèÊö
Add(Item: Pointer): Integer;
º¯Êý
ÓÃÀ´ÏòÁбíÖÐÌí¼ÓÖ¸Õë
Clear;
¹ý³Ì
Çå¿ÕÁбíÖеÄÏîÄ¿
Delete(Index: Integer);
¹ý³Ì
ɾ³ýÁбíÖжÔÓ¦Ë÷ÒýµÄÏîÄ¿
IndexOf(Item: Pointer): Integer;
º¯Êý
·µ»ØÖ¸ÕëÔÚÁбíÖеÄË÷Òý
Insert(Index: Integer; Item: Pointer);
¹ý³Ì
½«Ò»¸öÏîÄ¿²åÈëµ½ÁбíÖеÄÖ¸¶¨Î»ÖÃ
Remove(Item: Pointer): Integer;
º¯Êý
´ÓÁбíÖÐɾ³ýÖ¸Õë
Ãû³Æ
ÀàÐÍ
ÃèÊö
Capacity: Integer;
property
¿ÉÒÔÓÃÀ´»ñÈ¡»òÉ趨Áбí¿ÉÒÔÈÝÄɵÄÖ¸ÕëÊýÄ¿
Extract(Item: Pointer): Pointer;
function
Extract ÀàËÆÓÚRemove ¿ÉÒÔ½«Ö¸Õë´ÓÁбíÖÐɾ³ý£¬²»Í¬µÄÊÇ·µ»Ø±»É¾³ýµÄÖ¸Õë¡£¡¡
Exchange(Index1, Index2: Integer);
procedure
½»»»ÁбíÖÐÁ½¸öÖ¸Õë
First: Pointer;
function
·µ»ØÁ´±íÖеĵÚÒ»¸öÖ¸Õë
Last: Pointer;
function
·µ»ØÁ´±íÖÐ×îºóÒ»¸öÖ¸Õë
Move(CurIndex NewIndex: Integer);
procedure
½«Ö¸Õë´Óµ±Ç°Î»ÖÃÒƶ¯µ½ÐµÄλÖÃ
Pack;
procedure
´ÓÁбíÖÐɾ³ýËùÓÐnilÖ¸Õë
Sort(Compare: TListSortCompare);
procedure
ÓÃÀ´¶ÔÁ´±íÖеÄÏ
Ïà¹ØÎĵµ£º
Ë˵DelphiûÓйþÏ££¿££DelphiÖУ¬TStringListºÍTHashedStringListµÄÐÔÄܶԱÈ
Ôø¾¿´µ½ºÜ¶àÈËÔÚÈÂÈÂDelphiûÓйþÏ£±í£¬ÕâЩÈ˵Ķ¯ÊÖÒâʶ¹ÃÇÒ²»ÂÛ£¬È´»¹ÓкܶàÈËÒÔ´ËÀ´Ö¤Ã÷Delphi±È±ðµÄÓïÑÔÀ¬»ø£¬ÊµÔÚÊÇ...
ºÃ£¬ÀÎɧ´òס£¬×ª½ÓÕýÌâ¡£
TStringListÊÇÎÒÃdz£ÓõÄ×Ö·û´®ÁбíÀàÐÍ£¬Ó÷¨¾Í²»ÔÚÕâÀï׸Êö£¬µ«ÊÇ£¬ÔÚÊý¾ÝÆäÏîÊýÔö ......
¡¶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 ......
unit DvsLinkingClass;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs;
type
PRecLinkNode = ^RecLinkNode;
RecLinkNode = record
NodeMsg: String;
Counter: Integer;
Previous: PRecLinkNode;
Next: PRecLinkNode;
end;
TLinkingClass = class
......
¹ØÓÚIntraWeb³ÌÐòÔÚ±àÒëʱ³öÏÖ´íÎóµÄ½â¾ö·½·¨
´íÎóÌáʾ£º[Error] IWLicenseKey.pas(12): Undeclared identifier: 'SetLicenseKey'
´¦Àí·½·¨£º½øÈë²Ëµ¥Tools->Environment Options£¬Ñ¡Ôñ‘Library’£¬½«'Library path'²ÎÊýÖÐÓйØintrawebµÄĿ¼·ÅÔÚÇ°Ãæ¼´¿É¡£
ʹÓÃ&n ......