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

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

ÒÔÏÂÊÇÔÚÍøÉÏÊÕ¼¯µÄһЩ¶ÔÎÞÀàÐͲÎÊýµÄ˵Ã÷.¸öÈËÀí½âÎÞÀàÐͱäÁ¿¾ÍÊÇÒ»¸öÖ¸Õë.
ÏóDelphiÖÐfunction   Read(var   Buffer;   Count:   Longint):   Longint;   override;ÏóBufferÕâÑùûÓÐÀàÐ͵IJÎÊý¾¿¾¹Ó¦¸ÃÔõô¸ø²ÎÊý£¿£¿£¿£¿  
  Õâ˵Ã÷BufferÊÇͨ¹ýµØÖ··½Ê½´«µÝµÄ£¬Ò»°ã˵À´Ö»ÒªÊÇÒ»¶ÎÄÚ´æÇøÓò¾ÍÐС£  
var   Buffer;   const   buffer;  
  ÕâЩûÀàÐÍ˵Ã÷µÄÐβÎ˵Ã÷ÊÇÈ¡µØÖ·µÄÊ×µØÖ·¡£  
  ÀàÐÍ               Ê×µØÖ·  
  string           string[1]  
  char               ×Ô¼º  
  integer         ×Ô¼º  
  record           ×Ô¼º  
  array             arr[0]  
  pchar             pchar()^  
  pointer         pointer()^  
  otherPointer           otherPointer()^     PInteger()^Ö®ÀàµÄ  
   
  Ò»°ãÓÃÊ×µØÖ·µÄ·½·¨»òº¯Êý³ýÁËÊ×µØÖ·Í⣬¶¼ÓÐÒ»ÈËcountµÄ²ÎÊý£¬Ò»°ãÎÒÃÇÓà  
  length(string),   sizeof(record),   sizeof(type)   *   lengh  
   
  Èç¹ûÄãÔÚдreocordÖÐÓÐstring,ÇëΪËü·ÖÅäÄڴ棺   string[len],   or   str:   array[0..len]   of   char
                Buffer1:Array   of   char;    
                Buffer2:Array   [0..2048]   of   char;  
  Buffer1   ºÍ   Buffer2   ÔÚʹÓÃÉÏÊÇûÓÐÇø±ðµÄ,Èç:  
  Buffer1[10]   ºÍ   Buffer2[10]µÈ¼Û----char   ÀàÐÍ  
  Buffer1   ºÍ   Buffer2µÈ¼Û     ----------pointer   ÀàÐÍ  
  ËùÒÔ: &


Ïà¹ØÎĵµ£º

ÈóÌÐòÖ»ÔËÐÐÒ»¸öʵÀý(Delphiƪ)

Windows ÏÂÒ»¸öµäÐ͵ÄÌØÕ÷¾ÍÊǶàÈÎÎñ£¬ÎÒÃÇ¿ÉÒÔͬʱ´ò¿ª¶à¸ö´°¿Ú½øÐвÙ×÷£¬Ò²¿ÉÒÔͬʱÔËÐгÌÐòµÄ¶à¸öʵÀý£¬±ÈÈç¿ÉÒÔ´ò¿ªÐí¶à¸ö×ÊÔ´¹ÜÀíÆ÷½øÐÐÎļþµÄÒÆ¶¯¸´ÖƲÙ×÷¡£µ«ÓÐʱ³öÓÚijÖÖ¿¼ÂÇ£¨±ÈÈ簲ȫÐÔ£©£¬ÎÒÃÇÒª×ö³öһЩÏÞÖÆ£¬ÈóÌÐòÖ»Äܹ»ÔËÐÐÒ»¸öʵÀý¡£ÔÚDelphi±à³ÌÖУ¬±ÊÕß×ܽá³öÁËÒÔϼ¸ÖÖ·½·¨£º
¡¡¡¡Ò»¡¢ ²éÕÒ´°¿Ú·¨
¡¡¡ ......

DelphiͼÏñ´¦Àí ͼÏñ¸ß˹ģºý´¦Àí£¨¸Ä½ø°æ£©

     ÎÒÔÚÎÄÕ¡¶DelphiͼÏñ´¦Àí -- ͼÏñ¾í»ý¼°¸ß˹ģºý¡·ÖУ¬½éÉÜÁËÀûÓÃͨÓõÄͼÏñ¾í»ý¹ý³Ì¶ÔͼÏñ½øÐиß˹ģºý´¦Àí£¬Æä´¦ÀíЧ¹û»¹²»´í£¬´¦ÀíСÐÍͼÏñʱ¸Ð¾õÒ²»¹ÐУ¬µ«ÊÇ´¦Àí½Ï´óͼÏñʱµÄËÙ¶È»¹ÊÇÏÓÂý£¬ÔÚÎÒµÄP4 2.8G¡¢1GÄÚ´æµÄ»úÆ÷É϶ÔǧÍòÏñËØÍ¼Ïñ½øÐÐQ=3£¬R=5µÄ¸ß˹ģºý´¦Àí£¬²»°üÀ¨Í¼Ïñ×°ÔØºÍǰÆÚÊý ......

delphiÏ̳߳ء¾×ª¡¿


[code=Delphi(Pascal)]
unit uThreadPool;
{  aPool.AddRequest(TMyRequest.Create(RequestParam1, RequestParam2, ...)); }
interface
uses
  Windows,
  Classes;
// ÊÇ·ñ¼Ç¼ÈÕÖ¾
// {$DEFINE NOLOGS}
type
  TCriticalSection = class(TObject)
  protected
    FSec ......

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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ