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

delphiÖÐmoveº¯ÊýµÄÓ÷¨

ÎÒÃÇÄÜ¿´µ½ÒÔÏ´úÂë
var pSource,pDest:PChar;
     len: integer;
.......................//һЩ´úÂë
Move(pSource,pDest,len); //´íÎó
Move(pSource^,pDest^,len); //ÕýÈ·
¿´ÆðÀ´È·ÊµºÃÏñÊÇ´«Öµ£¬¶ø²»ÊÇ´«µØÖ·£¬µ«ÊǸ÷λ±ðÍüÁË£¬Õâ²»ÊÇC£¬C++£¬¶øÊÇDelphi
Object Pascal,ËùÒÔ£¬¾ø²»ÄÜ´Óº¯Êýµ÷Óõķ½·¨ÅжÏÊÇ´«Öµ»¹ÊÇ´®µØÖ·£¡£¡±ØÐë¿´º¯ÊýµÄ
¶¨Ò壬ֻÓж¨Òå²ÅÄÜ˵Ã÷ÊÇ´«Öµ»¹ÊÇ´«µØÖ·£¬ÔÙ˵һ±é£¬Õâ²»ÊÇC£¬C++£¡£¡
ÎÒÃÇ¿´µ½µÄº¯Êý¶¨ÒåÊÇÕâÑùµÄ
procedure Move(const Source; var Dest; Count: Integer);
´Ó¶¨ÒåÉÏ¿´£¬ºÜÇå³þ£¬DestÊÇ´«µØÖ·£¬¶ø²»ÊÇ´«Öµ£¬ÄÇôSourceÄØ£¬Æäʵ´ó¼Ò²»Ì«Çå³þ
ÕâÀïµÄConstÐÞÊηûÓÐÁ½¸öº¬Ò壬µÚÒ»¸ö´ó¼Ò¶¼ÖªµÀ¾ÍÊÇSourceÒ»³£Á¿·½Ê½ÔÚº¯ÊýÌåÄÚ£¬
²»¿ÉÒԸıäËüµÄÖµ£¬µÚ¶þ¸ö¿ÉÄÜÖªµÀµÄÈ˲»¶à£¬ÄǾÍÊÇSourceµÄ´«µÝ·½Ê½ºÍDestÒ»Ñù£¬
ÊÇ´«µØÖ·£¡Ò²¾ÍÊÇ˵constºÍvarÒ»Ñù£¬¶¼ÊÇ´«µØÖ·£¬Ö»²»¹ýÒ»¸öÔÚº¯ÊýÄÚ²»ÔÊÐíÐ޸ģ¬
ÁíÒ»¸öÊÇÐ޸ĺóÓ°Ïìµ÷ÓõıäÁ¿Öµ
ËùÒÔMoveÊÇ´«µØÖ·£¬¶øÇ¡Ç¡²»ÊÇ´«Öµ£¡
Move(const   Source;   var   Dest;   Count:   Integer);  
  Source   and   Dest¶¼ÊÇÖ¸ÏòÒ»¸öÊ×µØÖ·£¬  
  Èç  
  var                                                                 Ê×µØÖ·  
      P:   Pointer;                                                P^  
      P:   PChar            &


Ïà¹ØÎĵµ£º

Delphi ÖÐµÄ Var buffer ¿ªÀàÐͲÎÊý

ÒÔÏÂÊÇÔÚÍøÉÏÊÕ¼¯µÄһЩ¶ÔÎÞÀàÐͲÎÊýµÄ˵Ã÷.¸öÈËÀí½âÎÞÀàÐͱäÁ¿¾ÍÊÇÒ»¸öÖ¸Õë.
ÏóDelphiÖÐfunction   Read(var   Buffer;   Count:   Longint):   Longint;   override;ÏóBufferÕâÑùûÓÐÀàÐ͵IJÎÊý¾¿¾¹Ó¦¸ÃÔõô¸ø²ÎÊý£¿£¿£¿£¿  
  Õâ˵Ã÷BufferÊÇͨ¹ýµØÖ··½Ê½´«µÝµÄ£¬Ò»°ã˵À´Ö» ......

Delphi to Excel һЩ·½·¨

Ò»)   ʹÓö¯Ì¬´´½¨µÄ·½·¨   
  
  Ê×ÏÈ´´½¨   Excel   ¶ÔÏó£¬Ê¹ÓÃComObj: 
  var   ExcelApp:   Variant; 
  ExcelApp   :=   CreateOleObject(   'Excel.Application'  ......

DelphiÔÚVasta/win 7Ï»ñȡȨÏÞ

±Ï¾¹Win32³ÌÐòµÄ¿ª·¢£¬Delphi»¹ÊÇÓÐÍçÇ¿µÄÉúÃüÁ¦µÄ¡£
²Ù×÷²½ÖèÈçÏ£º
1.½¨Á¢ res Îļþ
½¨Á¢Ò»¸öÎı¾Îļþ£¬Ãû×Ö¿ÉÒÔ×Ô¼ºÆð£¬ÎÒÕâÀï½Ð£ºUAC.manifest£¬ÄÚÈÝ£º
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
......

Delphi¶àÏß³Ìѧϰ£º¶àÏß³ÌÊý¾Ý¿â²éѯ£¨ADO£©

ADO¶àÏß³ÌÊý¾Ý¿â²éѯͨ³£»á³öÏÖ3¸öÎÊÌ⣺
1¡¢CoInitialize ûÓе÷ÓÃ
£¨CoInitialize was not
called£©£»ËùÒÔ£¬ÔÚʹÓÃÈκÎdbGo¶ÔÏóǰ£¬±ØÐëÊÖ
µ÷ÓÃCoInitializeºÍCoUninitialize¡£µ÷ÓÃCoInitializeʧ°Ü»á²úÉú"CoInitialize was not
called"ÀýÍâ¡£
2¡¢»­²¼²»ÔÊÐí»æ»­
£¨Canvas does not allow
drawing£ ......

DELPHIÓû§µÇ¼·½°¸

3.2  Óû§µÇ¼·½°¸
ÔÚ½øÈëÒ»¸öϵͳʱ£¬±ØÐëÏÈÔڵǼ´°ÌåÖÐÊäÈëÕýÈ·µÄÓû§ÃûºÍÃÜÂë²ÅÄܽøÈë¡£ÕâÑù¿ÉÒÔÈ·±£ÏµÍ³µÄ°²È«ÐԺͱ£ÃÜÐÔ£¬µÇ¼´°ÌåµÄÖÆ×÷°´ÕÕϵͳµÄ´óС¼°Óô¦£¬¿ÉÒÔ·ÖΪ²»Í¬µÄµÇ¼´°ÌåÑùʽ£¬ÔÚϵͳµÚÒ»´ÎµÇ¼ǰ£¬Ê×ÏÈÒª¶Ô²Ù×÷Ô±ÐÅÏ¢½øÐÐÏàÓ¦µÄÉèÖᣱ¾½Ú½«¶ÔµÇ¼´°Ìå¼°²Ù×÷Ô±¹ÜÀí´°ÌåµÄÖÆ×÷¹ý³Ì½øÐÐÏêϸµÄ˵Ã÷ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ