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Èí¼þ¿ª·¢£¬ºÜ¶à¶¼²»¶®£¬±¾À´ÊÇ¿ÉÒÔ´ÓÍøÉÏÏÂÔØ£¬Ñ§Ï°Ò»Ïµģ¬¿ÉÊDz»ÖªµÀÔõÃ´ÆÆ½âµÇ½ÃÜÂ룬ÔËÐÐʱû°ì·¨µÇ½½øÈ¥£¬5555~~ºÃºÃѧϰ£¬ÓиßÊÖÖ¸µã¾ÍºÃÁË…… ......
procedure TForm_BaseMDI.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
SendMessage(Handle, 48384, 9, 0);
end;
end; ......
//²Î¿¼µØÖ·£º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 unitMain;
interface
uses
Registry, shlobj,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TExtForm = class(TForm)
ledExtension: TLabeledEdit;
ledAssocApp: TLabeledEdit;
GetAssocApp: TButton;
AssocTh ......
1¡¢µ±È»ÊÇÏÈÒªÐ¶ÔØÒÔǰ°²×°µÄEhlib×é¼þÁË£¬Ôڲ˵¥µÄ“Component”µÄ“install Packeges”ÀѡÔñehlib XX£¬Ñ¡Ôñ“Remove”¡£
2¡¢½ÓÏÂÀ´ÔÚ¿âÀï¼ÓÈëÕâ¸ö¿Ø¼þµÄÒýÓ÷¾¶£¬ÏÈн¨Ò»¸öÎļþ¼Ð£¬±ÈÈç“D:\Component\Ehlib”£¨×îºÃ°ÑÒª°²×°µÄ¿Ø¼þ¶¼¿½±´µ½Õâ¸öComponentĿ¼Ï£©£¬È»ºó°Ñ ......