delphiÖеö·ûºÅ@¡¢^¡¢$
@·ûºÅ·µ»ØÒ»¸ö±äÁ¿µÄµØÖ·
Àý£º
var
f:string;
p:^string; //ÉùÃ÷Ò»¸ö×Ö·û´®ÀàÐ͵ÄÖ¸Õë
begin
f ='demo';
p = @f;
showmessage(p^);//ÏÔʾ½á¹ûΪ‘demo’
end;
^·ûºÅÔÚdelphiÖдú±íÖ¸ÕëµÄÒâ˼.
$ÊDZàÒëÖ¸Á¾ßÌåÓ÷¨¼ûÏÂÎÄ£®
Delphi±àÒëÖ¸Áî˵Ã÷
Delphi¿ìËÙ¸ßЧµÄ±àÒëÆ÷Ö÷ÒªÀ´×ÔObject PASCALµÄÑϽ÷£¬Ê¹ÓÃDelphiËæÊ±¶¼ÔÚÓë±àÒëÆ÷½»Á÷£¬´ó²¿·ÖÇé¿öϲ»ÐèÒª¸ÉÉæ±àÒëÆ÷µÄÔËÐУ¬µ«ÊÇÓÐʱҲÐèÒª¶Ô±àÒëÆ÷½øÐбØÒªµÄÉèÖá£
A.1 ʹÓñàÒëÉèÖöԻ°¿ò
±àÒëÆ÷µÄ±àÒëÖ¸ÁîÊÇÓÃÓÚÖ¸¶¨±àÒëÆ÷¶ÔÏîÄ¿±àÒë¹ý³ÌµÄ¶¯×÷ºÍÐÐΪ¡£¿ÉÒÔͨ¹ý[Project]->[Options]->[Complier]Ñ¡ÏîÒ³½øÐÐÉèÖ㬾ø´ó²¿·ÖµÄ±àÒë»·¾³¶¼¿ÉÒÔͨ¹ýÕâÒ»¶Ô»°¿ò½øÐе÷Õû£¬Ëû°üº¬Á˶ԴúÂë¡¢Óï·¨¡¢µ÷ÊÔÐÅÏ¢µÈµÄÉèÖá£
1.´úÂëÉèÖÃ(Code Generation)
Optimization: ´úÂëÓÅ»¯¿ª¹Ø
Aligned record fields: ×Ö¶ÔÆëÊý¾Ý¡£Õâ¸ö±àÒëÖ¸ÁîÄܹ»ÔÚ±äÁ¿ºÍÀàÐÍ»¯³£Á¿µÄ×Ö½Ú¶ÔÆëºÍ×Ö¶ÔÆëÖ®¼ä½øÐÐÇл»£¬Æä×÷ÓÃÊÇÈ«¾ÖµÄ¡£
Stack frames: Windows ¶ÑÕ»Ö¡¡£Æä×÷ÓÃÓòÊǾֲ¿µÄ£¬Ëûʹ±àÒëÆ÷³ÉΪԶ¶Ë¹ý³ÌºÍº¯ÊýÉú³ÉÌØ¶¨µÄ¿ªÍ·ºÍ½áβ´úÂë¡£Õâ¸öÖ¸ÁîÓÃÓÚWindows 3.0µÄʵģʽ£¬¶ÔËùÓÐDelphiÓ¦ÓóÌÐòËûÓ¦¸ÃÊǹرյġ£
Pentium-safe FDIV: Pentium°²È«FDIV¼ì²é¡£´ËÖ¸ÁîÄܹ»ÔÚPentium´¦ÀíÆ÷ÖÐÖ¸¶¨±àÒëÆ÷ÊÇ·ñ´´½¨Äܹ»¼ì²âºÍʹÓÃÓÐȱÏݵĸ¡µã³ý·¨Ö¸ÁîµÄ´úÂë¡£
2.ÔËÐÐÆÚ´íÎó(Runtime Errors)
Range Checking: ·¶Î§¼ì²é¡£Õâ¸öÖ¸ÁîµÄ×÷Ó÷¶Î§ÊǾֲ¿µÄ£¬ÓÃÓÚ¿ØÖÆ·¶Î§¼ìÑé´úÂëµÄÉú³É¡£
I/O Checking: I/O¼ì²é¡£Õâ¸öÖ¸ÁîµÄ×÷ÓÃÓòΪ¾Ö²¿£¬ÓÃÀ´Éú³É¶ÔÒ»¸öÎļþµÄÊäÈëºÍÊä³ö¹ý³ÌºÍµ÷Óýá¹û½øÐмì²éµÄ´úÂë¡£Ò»°ãÓ¦¸ÃʹÆä¹¦ÄÜ´ò¿ª¡£
Overflow Checking: Òç³ö¼ì²é¡£Æä×÷ÓÃÊÇÉú³É¶ÔËãÊõÒç³ö¼ì²éµÄ´úÂë¡£
3.Óï·¨ÉèÖÃ(Syntax Optings)
Strict Var- strings: ¾²Ì¬±äÁ¿´®¿ª¹Ø¡£ÓÃÀ´¿ØÖƶÔÒÔ±äÁ¿²ÎÊýÐÎʽ´«µÝµÄ´®µÄÀàÐͼì²é¡£
Comlete Boolean Eval: ÍêÈ«²¼¶û±í´ïÁ¿Åж¨¡£ÓÃÓÚÖ´ÐÐÇ¿ÖÆµÄÍêÕû±í´ïʽÅж¨¡£ÍêÈ«²¼¶ûÁ¿Åж¨£¬ÓпÉÄܵ¼ÖÂϵͳ±ÀÀ££¬ËùÒÔÒ»°ã²»Ê¹ÓÃËû¡
Ïà¹ØÎĵµ£º
¼Ì³ÐÊÇΪÁ˱íÏÖÀàÓëÀàÖ®¼ä“ÊÇÒ»ÖÖ”¹ØÏµ£¬ÊǶà̬´æÔڵĻù´¡£¬¼Ì³ÐÊÇÃæÏó¶ÔÏ󱨲»¿ÉÉٵĻù´¡£¬Ö»Ö§³Ö·â×°¶ø²»Ö§³Ö¼Ì³ÐµÄÓïÑÔÖ»ÄܳÆÎª“»ùÓÚ¶ÔÏ󔣨Object-Based£©Ãæ·ÇÃæÏò¶ÔÏó“Object-Oriented”;
Object PascalÖ»Ö§³Öµ¥¼Ì³Ð£¬Ò²¾ÍÊÇÒ»¸öÅÉÉúÀàÖ»ÄÜÓÐÒ»¸ö»ùÀà
µ«¿ÉÒÔʵÏÖ¶à¸ö½Ó¿Ú ......
ʲôÊǶà̬£¬×ÖÃæÒâ˼¾ÍÊÇ“¶àÖÖÐÎ̬”£¬ÓöÔÏóÀ´½²¾ÍÊÇ×ÓÀà¼Ì³Ð»ùÀ࣬¶ø²»Í¬µÄ×ÓÀàÓÖ·Ö±ð¶Ô»ùÀà½øÐй¦ÄܵÄÀ©Õ¹¡£
¶à̬ÔÚObject PascalÖÐÊÇͨ¹ýÐé·½·¨ÊµÏֵģ¨Virtual Method£©,ÔÚObject PascalÖлùÀàµÄÐé·½·¨ÊÇ¿ÉÒÔ±»ÅÉÉúÀา¸Ç£¨Override£©µÄ ......
1.²ßÂÔÀà
{¡¶HeadFirstÉè¼ÆÄ£Ê½¡·Ö®²ßÂÔģʽ }
{ ±¾µ¥ÔªÖеÄÀàΪ²ßÂÔÀà }
{ ±àÒ빤¾ß: Delphi7.0 }
{ E-Mail : xshlife@163.com }
unit uStrategy;
interface
type
{·ÉÐнӿڣ¬¼°ÆäʵÏÖÀà }
IFlyBehavior = Interface(IInterface)
procedure Fly;
......
Ò»¡¢Òý×Ó£º
ÏÖÔÚµÄWindowsÓ¦ÓóÌÐò¼¸ºõ¶¼Ê¹ÓÃͼ±ê¡¢Í¼Æ¬¡¢¹â±ê¡¢ÉùÒôµÈ£¬ÎÒÃdzÆËüÃÇΪ×ÊÔ´£¨Resource£©¡£×î¼òµ¥µÄʹÓÃ×ÊÔ´µÄ°ì·¨ÊǰÑÕâЩ×ÊÔ´µÄÔ´Îļþ´òÈëÈí¼þ°ü£¬ÒÔ·½±ã³ÌÐòÐèÒªµÄʱºòµ÷Óá£×ÊÔ´ÊdzÌÐòµÄÒ»²¿·Ö£¬³ÌÐòÒªÕý³£ÔËÐоÍÀë²»ÁË×ÊÔ´Îļþ¡£µ«ÊÇËüÊDz»¿ÉÖ´ÐдúÂë¡£
ΪÁ˸üºÃµØ¹ÜÀí×ÊÔ´£¬DelphiÖÐÌṩÁËÒ»ÖÖ.RESÀàÐ ......
DECLARE
TYPE TY_QUECUR IS REF CURSOR;
CUR_COLUMNS TY_QUECUR;
SQLCMD VARCHAR(500);
TABNAME VARCHAR(20);
COLNAME VARCHAR(50);
COLTYPE VARCHAR(20);
COLCOMMENT VARCHAR2(50);
COLLENGTH INTEGER;
COLPRECISION INTEGER; ......