DelphiÖнӿڡ¢Àà¡¢Óë¼Ì³ÐµÄÎÊÌâ
ÎÒĿǰÓöµ½µÄÎÊÌâÈçÏ£º
Delphi(Pascal) code:
IA = interface
function GetA: Integer;
end;
TB = class(TInterfacedObject, IA)
public
...Ê¡ÂÔÆäËûN¸öº¯Êý
function GetA: Integer;
end;
TC = class(TB)
public
...
function GetA: Integer;
private
end;
ÒÔÉÏÊǽӿÚAºÍÀàB¡¢ÀàCµÄ¶¨Ò壬ÆäÖÐÀàC´ÓÀàBÖм̳У¬²¢½«GetAº¯ÊýÖØÐ´¡£
ÏÖÔÚµÄÎÊÌâÊÇ£¬ÎÒÄܲ»ÄÜÓýӿÚÀ´µ÷ÓÃÀàCµÄGetAº¯Êý(ÈçÏ·½·¨µ÷ÓÃ)£¿
Delphi(Pascal) code:
var
ITemp: IA;
i: Integer;
begin
ITemp:= TC.Create;
i := IA.GetA;
ITemp:= nil;
ITemp±äÁ¿ÉêÃ÷Ϊ½Ó¿Ú£¬ÎÒ·¢ÏÖGetAÆäʵÊÇÔÚÖ´ÐÐTBµÄ´úÂ룬¶øÃ»ÓÐÖ´ÐÐTCµÄ´úÂë¡£
Èç¹û½«ITempÉêÃ÷ΪTC£¬Äǵ±È»ÈÝÒ×ʵÏÖ¡£µ«¹Ø¼üÊÇÎÒÏÖÔÚÓкܶàTC£¬¾ßÌåÖ´ÐÐÄĸö£¬Ò²²»È·¶¨µÄ¡£
ÇëÎÊÓÐʲô·½·¨¿ÉÒÔ¼ò±ãµÄµ÷Óõ½TCµÄGetAº¯Êý£¿
var ITemp: TC;
i: Integer;
begin
ITemp:= TC.Create;
i := IA.GetA;
ITemp:= nil;
end;
¶àл¥ÉϵÄÅóÓÑ£¬µ«ÊÇÕâ¸ö°ì·¨ÎÒÒ²ÖªµÀ¡£¹Ø¼ü£¬ÀàËÆTCÒ»Ñù£¬´ÓTBÀà¼Ì³ÐÏÂÀ´µÄºÜ¶à¡£ÎÒÀÁ£¬ËùÒÔÏëÕÒÒ»¸öͳһµÄ´úÂë¡£²»ÖªµÀÓÐûÓв»ÓøľͿÉÒÔµ÷Óõġ£
±ÈÈ磬´æÔÚTD£¬Ò²ÊÇ´ÓTB¼Ì³ÐµÄÀ࣬ÄÇÎÒµ÷ÓõÄʱºò£¬¾ÍÓֵðÑITempÉêÃ÷³ÉTDÁË¡£ÄÇÔٶ࣬²»ÊÇÓֵøģ¿
Ïà¹ØÎÊ´ð£º
ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd()
¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book');
ʱÌáʾstradd䶨Òå...
Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤!
(ÔÚA ......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......
VC++ ÖУ¬ &±äÁ¿Ãû¡£ ÊÇʲôÒâ˼¡£ DelphiÖÐ ºÍËûÒ»ÑùµÄ·ûºÅ ÊÇÄĸö¡¢£¿
´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌåÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......