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

delphi±à³ÌÀïµÄbool¸úbooleanÀàÐÍÓÐÊ²Ã´Çø±ð

boolÊÇLongBoolÀàÐÍ¡£
DelphiÖж¨ÒåÁËËÄÖÖ²¼¶ûÀàÐÍ£ºBoolean£¬ByteBool£¬WordBoolºÍLongBool¡£ºóÃæÈýÖÖ²¼¶ûÀàÐÍÊÇΪÁËÓëÆäËûÓïÑÔ¼æÈݶøÒýÈëµÄ£¬Ò»°ãÇé¿öϽ¨ÒéʹÓÃBooleanÀàÐÍ¡£
ÕâËÄÖÖÀàÐ͵IJ¼¶ûÖµÕ¼ÓÃÄÚ´æµÄÊýÁ¿ÈçÏ£º
Boolean 1 Byte
ByteBool 1 Byte
WordBool 2 Bytes£¨1 Word£©
LongBool 4 Bytes£¨2 Words£©
¶ÔÓÚByteBool£¬WordBoolºÍLongBoolÈýÖÖÀàÐÍTrue³£Á¿µÄֵΪ·ÇÁ㣬FalseΪÁ㣬¿ÉÒÔÓÃOrdº¯ÊýÑéÖ¤£»
¶ø¶ÔÓÚBooleanÀàÐÍ£¬True³£Á¿µÄֵΪ1£¬FalseΪÁã¡£ÔÚÆÚÍûBooleanÖµµÄÉÏÏÂÎÄÖУ¬±àÒëÆ÷»á½«ByteBool£¬WordBoolºÍLongBoolÈýÖÖÀàÐ͵ķÇÁãֵת»»ÎªTrue¡£
È»¶ø£¬ÔÚDelphiÖв¼¶û±í´ïʽºÍInteger/RealÊDz»¼æÈݵġ£ÏÂÃæµÄ±í¸ñ¶Ô±ÈÁËBooleanÓëByteBool/WordBool/LongBoolÔÚÒìͬ£º
Boolean
 False < True
Ord(False) = 0
Ord(True) = 1
Succ(False) = True
Pred(True) = False
BoolToStr(True) = -1 //Õâ¸öº¯ÊýºÜ±ä̬
BoolToStr(False) = 0
ByteBool, WordBool, LongBool
False <> True
Ord(False) = 0
Ord(True) <> 0
Succ(False) = True
Pred(False) = True
BoolToStrÕâ¸öº¯Êý×îĪÃûÆäÃîÁË£¬Ã÷Ã÷˵TrueµÄÖµÊÇ1£¬¶øËüÈ´¸æËßÎÒÃÇTrueÊÇ-1¡£º¯ÊýµÄÔ­ÐÎÊÇ£º
function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string;
ÏÂÃæÕâ¸ö±íÊǺ¯ÊýµÄת»»¹æÔò£º
B UseBoolStrs Value of returned string
True False '-1'
True True TrueBoolStrsÊý×éµÄµÚÒ»¸öÖµ(default, 'TRUE')
False False '0'
False True FalseBoolStrsÊý×éµÄµÚÒ»¸öÖµ(default, 'FALSE')


Ïà¹ØÎĵµ£º

delphiÖÐActiveX ºÍ Web

http://book.77169.com/data/web5302/20050228/20050228__3692503.html
ActiveX ºÍ Web
ÔÚWindows ²Ù×÷ϵͳÏ£¬ÓÐÒ»¸öÖØÒªµÄ»úÖÆ£¬¾ÍÊÇOLE £¬¾ÍÊÇ¿ÉÒÔÈÃij
¸öÓ¦ÓóÌÐò£¨OLE Controller£©·ÃÎÊÆäËüÓ¦ÓóÌÐò£¨OLE Server£©ËùÌṩµÄ
¹¦ÄÜ£¬ÕâÑù×öµÄºÃ´¦ÊÇ£¬Èç¹ûÒѾ­ÓÐÁËÍê³ÉijÏÄܵijÌÐò£¬Äã¾Í²»±ØÔÙΪ
ijÏÄܱàÐ´ÌØ¶¨ ......

Delphiº¯ÊýºÍ¹ý³Ì

     ¹ý³ÌÎÞ·µ»ØÖµ£¬º¯ÊýÓзµ»ØÖµ¡£
     procedure MyProc(m,n : Integer; o : String; p : Single = 2.5; q : String = 'Delphi');
     ÈçÉÏÀýËùʾ£¬¹ý³ÌÉùÃ÷ºÍ¶¨ÒåÖУ¬¶à¸ö²ÎÊýÊÇÓ÷ֺŸô¿ªµÄ£¬µ«ÔÚµ÷ÓÃʱÊÇÓöººÅ¸ô¿ªµÄ ¡£eg£º
  ......

Delphiµ÷ÓÃoutlook

 //¶¨ÒåÈ«¾Ö±äÁ¿
public
{ Public declarations }
outlook,MailItem,Recipient:variant;
OutlookNameSpace:variant;
OutlookFolder:variant;
OutlookAttachment:variant;
//´´½¨´ò¿ªoutlook
procedure TForm1.CreateOutLook;
begin
try
outlook:=CreateOleObject('OutLook.app ......

Delphi ÖÐÈçºÎ°²×°×é¼þ?


Delphi ÖÐÈçºÎ°²×°×é¼þ?
delphiÖÐÈçºÎ°²×°×é¼þÓÐÎåÖÖÇé¿ö£º
1¡¢Ö»ÓÐÒ»¸öDCUÎļþµÄ×é¼þ¡£DCUÎļþÊDZàÒëºÃµÄµ¥ÔªÎļþ£¬ÕâÑùµÄ×é¼þÊÇ×÷Õß²»Ïë°ÑÔ´Â빫²¼¡£Ò»°ãÀ´Ëµ£¬×÷Õß±ØÐë˵Ã÷´Ë×é¼þÊʺÏDelphiµÄÄÄÖÖ°æ±¾£¬Èç¹û°æ±¾²»¶Ô£¬ÔÚ°²×°Ê±¾Í»á³öÏÖ´íÎó¡£Ò²ÕýÊÇÒòΪûÓÐÔ´Â룬¸øÊ¹ÓÃÕß´øÀ´Á˲»±ã£¬ÄǾÍÊÇÒ»µ©Delphi°æ±¾Éý¼¶£¬´Ë× ......

DelphiÎļþ²Ù×÷³£Óú¯Êý

====================================================
Delphi²Ù×÷ÎļþµÄÒ»°ã²½Ö裺
1£©¹ØÁªÎļþ£º
 AssignFile(var F; FileName :string)£»
2£©³õʼ»¯Îļþ£º
 Append(var F :Text);   
 //ֻд£¬ÓÚÎļþ×îºó×·¼ÓÊý¾Ý
 Reset(var F [; RecSize :Word]);     ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ