Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

Delphi Êý¾ÝÀàÐÍ

 Ò»¡¢ÕûÊýÀàÐÍ
ÀàÐÍ ËùÕ¼×Ö½ÚÊý ȡֵ·¶Î§
byte 1 0-255
word 2 0-65535
shortint 1 -128-127
smallint 2 -32768-32767
integer 4 -214748648-214748467
longint 4 -214748648-214748467
cordinal 4 0-2147483647
¶þ¡¢ÊµÊýÀàÐÍ
ÀàÐÍ Ëùµã×Ö½ÚÊý ȡֵ·¶Î§
Real 6 ±2.9×10µÄ¸º39´Î·½µ½1.7×10µÄ38´Î·½
Single 4 ±1.1×10µÄ¸º45´Î·½µ½1.1×10µÄ38´Î·½
double 8 ±5.0×10µÄ¸º324´Î·½µ½1.7×10µÄ308´Î·½
extended 10 ±3.4×10µÄ¸º4932´Î·½µ½1.1×10µÄ4932´Î·½
Comp 8 -263-262
Èý¡¢×Ö·ûÀàÐÍ
×Ö·ûÀà Ëùµã×Ö½ÚÊý ÈÝÄÉ×Ö·û·¶Î§
ansichar 1 Ò»¸öASCii×Ö·û
widechar 2 Ò»¸öµ¥´úÂë×Ö·û
Char 1 Ò»¸öASCII×Ö·û
ËÄ¡¢×Ö·û´®ÀàÐÍ
ÀàÐÍ ÈÝÄÉÀàÐÍ ÊÇ·ñÒÔ¿Õ×Ö½Ú½áÊø ³¤¶È·¶Î§
shortstring Char ·ñ 255
ansistring Char ÔÊÐí Ô¼3GB
string Char ²»ÏÞ 255»ò3GB
widestring widechar ÔÊÐí Ô¼1.5GB
Îå¡¢²¼¶ûÀàÐÍ
ÀàÐÍ ·¶Î§ Ëùµã×Ö½ÚÊý
bool ×Ö 2
boolean Ò»×Ö½Ú 1
bytebool ×Ö½Ú 1
wordbool ×Ö 2
longbool Ë«×Ö½Ú 4
 
Ïêϸ°æ£º
(1) »ù±¾Êý¾ÝÀàÐÍ£º
    a¡¢ ÕûÊýÀàÐÍ£º       (ͨÓÃÀàÐÍ<32λ>£ºInteger£­ÓзûºÅ£»Cardinal£­ÎÞ·ûºÅ)
          ¾ßÌ壺
         ÓзûºÅ£ºShortint<8λ>£¬Smallint<16λ>£¬Longint<32λ >
         ÎÞ·ûºÅ£ºByte<8λ>£¬Word<16λ>£¬LongiWord<32λ >
   
    b¡¢×Ö·ûÀàÐÍ£º         (ͨÓÃÀàÐÍ<8λ>£ºChar £­ÓëAnsiCharµÈͬ)
           ¾ßÌ壺
            AnsiChar<8λ> £ºÖ÷Òª´æ·ÅAnsi×Ö·û
            WideChar<16λ>£ºÖ÷Òª´æ·ÅUnicode×Ö·û
    
    c¡¢²¼¶ûÀàÐÍ£º           (ͨÓÃÀàÐÍ<8λ>£ºBoolean£­ÓëByteBoolµÈÍ


Ïà¹ØÎĵµ£º

delphi ¶à̬

 Ê²Ã´ÊǶà̬£¬×ÖÃæÒâ˼¾ÍÊÇ“¶àÖÖÐÎ̬”£¬ÓöÔÏóÀ´½²¾ÍÊÇ×ÓÀà¼Ì³Ð»ùÀ࣬¶ø²»Í¬µÄ×ÓÀàÓÖ·Ö±ð¶Ô»ùÀà½øÐй¦ÄܵÄÀ©Õ¹¡£
¶à̬ÔÚObject PascalÖÐÊÇͨ¹ýÐé·½·¨ÊµÏֵģ¨Virtual Method£©,ÔÚObject PascalÖлùÀàµÄÐé·½·¨ÊÇ¿ÉÒÔ±»ÅÉÉúÀา¸Ç£¨Override£©µÄ ......

Delphi Éè¼ÆÄ£Ê½£º¡¶HeadFirstÉè¼ÆÄ£Ê½¡·Delphi7´úÂë

 1.²ßÂÔÀà
{¡¶HeadFirstÉè¼ÆÄ£Ê½¡·Ö®²ßÂÔģʽ }
{ ±¾µ¥ÔªÖеÄÀàΪ²ßÂÔÀà }
{ ±àÒ빤¾ß: Delphi7.0 }
{ E-Mail : xshlife@163.com }

unit uStrategy;

interface

type
{·ÉÐнӿڣ¬¼°ÆäʵÏÖÀà }

IFlyBehavior = Interface(IInterface)
procedure Fly;
......

Delphi Éè¼ÆÄ£Ê½£º¡¶HeadFirstÉè¼ÆÄ£Ê½¡·Delphi7´úÂë

ûÓÐÓ¦ÓÃ״̬ģʽµÄ´úÂë
1. ¹¤³ÌÎļþ
program Project1;
{$APPTYPE CONSOLE}
uses
uGumballMachine in 'uGumballMachine.pas';
var
aGumballMachine: TGumballMachine;
begin
aGumballMachine := TGumballMachine.Create(5);
aGumballMachine.InsertQuarter;
aGumballMachine.TurnCrank;
Writeln; ......

delphiÖÐcanvas»­²¼µÄÔËÓÃ

 ÔÚDELPHIΪ±à³ÌÕßÌṩÁËÒ»¸öÁé»îµÄ»æÍ¼³¡Ëù,¼´±¾ÎÄËùÊöµÄ   
CANVASÀà,ÔÚDELPHIÖÐµÄºÜ¶à¿Ø¼þ¶¼¾ßÓдËÊôÐÔ,ʹ±à³ÌÕß¿ÉÒÔ   
ÔÚÕâЩµÄ¿Ø¼þµÄ±íÃæËæÐÄËùÓûµÄ»æÍ¼,Õâ¶ÔÍêÉÆÓû§½çÃæ»òÕßÖÆ   
×÷һЩÆÁÄ»ÌØ¼¼¶¼ÓÐ×Å·Ç·²µÄ×÷ÓÃ,ÏÂÃæ¾ÙÀý˵Ã÷¼¸ÖÖÌØÊâÆÁÄ»  &n ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ