DelphiµÄ5ÖÖ·½·¨ÀàÐÍ
DelphiµÄ·½·¨ÀàÐÍÓУº
1.¾²Ì¬·½·¨ (Static) ĬÈÏÀàÐÍ£¬¿ÉÒÔÊ¡ÂԹؼü×Ö
2.ÐéÄâ·½·¨ (Virtual)
3.¶¯Ì¬·½·¨ (Dynamic)
4.ÏûÏ¢·½·¨ (Message)
5.³éÏó·¨·½ (Abstract)
=======================================================
1£©¾²Ì¬·½·¨[static]
¾²Ì¬·½·¨ÀàËÆÓÚͨ³£µÄ¹ý³ÌºÍº¯Êý£¬±àÒëÆ÷ÔÚ±àÒëʱ¾ÍÒÑÖ¸¶¨ÁËÊä³ö¸Ã·½·¨
µÄ¶ÔÏóʵÀý¡£¾²Ì¬·½·¨µÄÖ÷ÒªÓŵãÊǵ÷ÓÃËٶȿ졣
eg£º
type
TAnimal = class(TObject)
procedure Sound;
procedure Sleep;
... ...
end;
... ...
TDog = class(TAnimal)
procedure Sound;
function Sleep:Integer;
... ...
end;
¾²Ì¬·½·¨²»Äܱ»ÖØÔØ£¬ÉÏÀýÖУ¬ÅÉÉúÀàµÄ¾²Ì¬·½·¨Ö»ÊÇÌæ»»ÁË»ùÀàµÄ¾²Ì¬·½
·¨¡£¼´Ê¹Sleep·½·¨ÔÚTAnimalÖбíÏÖΪ¹ý³Ì¶øÔÚTDogÀàÖбíÏÖΪº¯Êý¡£
=======================================================
2£©ÐéÄâ·½·¨[virtual]
ÐéÄâ·½·¨±È¾²Ì¬·½·¨¸üÁé»î¡¢¸ü¸´ÔÓ¡£ÐéÄâ·½·¨µÄµØÖ·²»ÊÇÔÚ±àÒëʱȷ¶¨µÄ
£¬¶øÊÇÔÚ³ÌÐòÔËÐÐÆÚ¼ä¸ù¾Ýµ÷ÓÃÕâ¸öÐéÄâ·½·¨µÄ¶ÔÏóʵÀýÀ´È·¶¨µÄ£¬ÕâÖÖ·½
·¨ÓÖ³ÆÎªÖͺóÁª±à¡£ÐéÄâ·½·¨ÔÚ¶ÔÏóÐéÄâ·½·¨±í£¨VMT£©ÖÐÕ¼ÓÐÒ»¸öË÷ÒýºÅ
eg:
type
TAnimal = class(TObject)
procedure Eat;
procedure Sound; virtual;
procedure Sleep; dynamic;
... ...
end;
TDog = class(TAnimal)
procedure Sound; override; //ÖØÔØ
function Sleep:Integer; override;
... ...
end;
Ö»ÓÐvirtualºÍdynamic¿ÉÒÔ±»override£¬static²»Äܱ»override(ÖØÔØ)¡£
=======================================================
3£©¶¯Ì¬·½·¨[dynamic]
±»ÉùÃ÷Ϊ¶¯Ì¬·½·¨µÄ·½·¨²»ÊÇ·ÅÔÚÀàµÄÐéÄâ·½·¨±íÖУ¬¶øÊÇÓɱàÒëÆ÷Ö¸¶¨Ò»
¸öË÷ÒýºÅ£¨Ò»°ã²
Ïà¹ØÎĵµ£º
µÚÒ»ÖÖ·½·¨£º
µÚÒ»²½£º ÐÞ¸ÄÊôÐÔ
1¡¢kind -> dtktime Ò²¿ÉÒÔÊÇdtkdate µ«ÊÇÔÚÓÃdtkdateµÄʱºòÐèÒª½«datemodeÊôÐÔÐ޸ijÉdmUpDown
2¡¢parseinput -> true
µÚ¶þ²½£ºÔÚonUserInputʼþÖÐдһ¾ä´úÂë
DateTimePicker1.DateTime:=DateAndTime;
×¢£ºÒÔÉÏ·½·¨ËäÈ»¿ÉÒԴﵽĿµÄ£¬µ ......
{-----------------------------------------------------------------------------
Unit Name: HashTable
Author: LiuHeng
Date: 2010-04-13
Purpose: ·â×°DelphiµÄHashTable
History:
------------------------------- ......
unit MyADO;
interface
uses
SysUtils, Classes,ADODB,DB,Variants,StdCtrls,Dialogs;
type
TMyADO = class(TComponent)
private
Connection: TADOConnection;
Query: TADOQuery;
Table: TADOTable;
FConnectio ......
32λDelphi³ÌÐòÖпÉÀûÓÃTRegistry¶ÔÏóÀ´´æÈ¡×¢²á±íÎļþÖеÄÐÅÏ¢¡£
¡¡¡¡Ò»¡¢´´½¨ºÍÊÍ·ÅTRegistry¶ÔÏó
¡¡¡¡1.´´½¨TRegistry¶ÔÏó¡£ÎªÁ˲Ù×÷×¢²á±í£¬Òª´´½¨Ò»¸öTRegistry¶ÔÏó£ºARegistry := TRegistry.Create£»
¡¡¡¡2.ÊÍ·ÅTRegistry¶ÔÏó¡£¶Ô×¢²á±í²Ù×÷½áÊøºó£¬Ó¦ÊÍ·ÅTRegistry¶ÔÏóËùÕ¼Äڴ棺ARegistry.Destroy¡£
¡¡¡¡¶þ ......