Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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µÄHashTable

{-----------------------------------------------------------------------------
 Unit Name: HashTable
 Author:    LiuHeng
 Date:      2010-04-13
 Purpose:   ·â×°DelphiµÄHashTable
 History:
------------------------------- ......

delphi µ÷ÓÃC# webservice

×ªÔØ×Ô£ºhttp://www.cnblogs.com/jdmei520/archive/2009/06/17/1505053.html
Webservice¼¼ÊõµÄ³öÏÖ½«¸÷ÖÖ¿ª·¢¼¼ÊõºÍÓïÑÔÍêÈ«µÄÈÚºÏÁË£¬ÏÂÃæ¾ÍÕâÖÖÈÚºÏÔÚC#ºÍdelphiÖ®¼äµÄ½»»¥×öÒ»´ÎÈ«ÃæµÄÌåÏÖ
1.ʹÓÃC#´´½¨Ò»¸öWebservice·þÎñ¡£
ʹÓÃvs2005µÄÄ£°å´´½¨C#µÄwebservice·Ç³£ÈÝÒס£Ô­ÎļþÈçÏÂ:
[WebService(Namespace  ......

delphiµÄÈ¡Õûº¯Êýround¡¢trunc¡¢ceilºÍfloor

1.Round£¨ËÄÉáÁùÈëÎåÁôË«£©
¹¦ÄÜ˵Ã÷£º¶ÔÒ»¸öʵÊý½øÐÐËÄÉáÎåÈë¡£(°´ÕÕÒøÐмÒËã·¨)
Àý£º
var
i, j: Integer;
begin
i := Round(1.5); // iµÈÓÚ2
j := Round(2.5); // jµÈÓÚ2
end;
ÔÚDelphiÖÐʹÓÃRoundº¯ÊýµÃµ½µÄ´ð°¸ÓÐʱÓëÎÒÃÇËùÔ¤ÆÚµÄ»á²»Ì«Ò»Ñù£º²ÉÓõÄÊÇËÄÉáÁùÈëÎåÁôË«¡£¼´µ±Éá»òÈëλ´óÓÚ»òСÓÚÎåÊ ......

delphiµ÷ÓÃÑ¡ÔñĿ¼¶Ô»°¿ò

delphiµ÷ÓÃÑ¡ÔñĿ¼¶Ô»°¿ò
¾­³£¼ûÍøÉÏÓÐÈËÎÊÑ¡ÔñĿ¼¶Ô»°¿òµÄ¿Ø¼þ£¬ÆäʵֻÓÃÒ»¸öº¯Êý¾Í¿ÉÒÔʵÏÖ¡£
×¢ÒâÒýÓÃ Filectrl µ¥Ôª
use Filectrl;
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: String;
begin
SelectDirectory('Select a directory', '', Dir);
ShowMessage(Dir);
end; ......

Delphi ÁгöĿ¼ÏµÄÎļþ

function ListFiles(Dir: String):TStrings;
var
FSearchRec: TSearchRec;
FileList: TStrings;
FindResult: Integer;
begin
if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
FileList :=TStringList.Create;
FindResult:=FindFirst(Dir+'*.*,faAnyFile+faDirectory,FSearchRec);
while FindRes ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ