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

Delphi±àд±ä³¤²ÎÊýµÄcdeclº¯Êý

ÎÄÕÂÀ´×Ô£ºhttp://hi.baidu.com/523399/blog/item/f36e2e9b25041fbdc9eaf4c6.html
ѧ¹ýCÓïÑÔµÄÈ˶¼ÖªµÀ£¬printfµÄ²ÎÊýÊDz»¹Ì¶¨µÄ£¬ÕâÖÖ²ÎÊýÐÎʽ½Ð×ö±ä³¤²ÎÊý¡£´øÓб䳤²ÎÊýµÄº¯Êý±ØÐëÊÇcdeclµ÷ÓÃÔ¼¶¨£¬Óɺ¯ÊýµÄµ÷ÓÃÕßÀ´Çå³ýÕ»£¬²ÎÊýÈëÕ»µÄ˳ÐòÊÇ´ÓÓÒµ½×ó¡£printfÊǸù¾Ý¸ñʽ»¯´®ÖеÄռλ±ê¼ÇÀ´²Â²âÕ»ÖеIJÎÊýµÄ¡£ÒÔϾÍÓÃDelphiÄ£ÄâÒ»¸ö¼òµ¥µÄÀàËÆprintfµÄº¯Êýsprintf¡£
type
   VA_FN = function(const par1, par2{, ...}: Pointer): Integer; cdecl varargs;
procedure CvtInt;
{ IN:
     EAX:   The integer value to be converted to text
     ESI:   Ptr to the right-hand side of the output buffer:   LEA ESI, StrBuf[16]
     ECX:   Base for conversion: 0 for signed decimal, 10 or 16 for unsigned
     EDX:   Precision: zero padded minimum field width
   OUT:
     ESI:   Ptr to start of converted text (not start of buffer)
     ECX:   Length of converted text
}
asm
         OR       CL,CL
         JNZ      @CvtLoop
@C1:     OR       EAX,EAX
         JNS      @C2
         NEG      EAX
         CALL     @C2
         MOV      AL,'-'
         INC      ECX
         DEC      ESI
         MOV      [ESI],AL
         RET
@


Ïà¹ØÎĵµ£º

DelphiÖÐÓÃADOÁ¬½ÓÊý¾Ý¿â

´ËÎÄÊʺÏDelphiÐÂÊÖÔĶÁ£¬ÌرðÊÇÁ¬½ÓÊý¾Ý¿â·½Ã滹һ¶®°ë¶®ÉõÖÁ¸ù±¾²»¶®µÄÐÂÊÖ£»
     --------------------------µ«×ÜÌåÏÔµÃÓеãÂÒ-------------------------
     ±¾ÎÄÕÂÒÔDelphi 7ºÍSQL Server 2000ΪÀý£¬¿Ø¼þÃû¾ùΪϵͳĬÈÏ£¬ÈçUnit1,DataModule1,Edit1,ADOCommand1,ADODataS ......

Delphi µÄ×Ö·û¼°×Ö·û´®[

Delphi µÄ×Ö·û¼°×Ö·û´®[1] - string¡¢AnsiString¡¢WideString¡¢String[n]¡¢ShortString
2008-10-17 14:57:17
//×î³£ÓÃµÄ string
var
  str: string;   {¶¨Òå}
begin
  str := 'ÍòÒ»'; {¸³Öµ}
  ShowMessage(IntToStr(Length(str))); {³¤¶ÈÊÇ: 4}
end;
//³¤×Ö·û´® AnsiString; ÔÚµ±Ç°°æ± ......

Delphi º¯Êý´óÈ«

Ãû³Æ ÀàÐÍ ËµÃ÷  
abort º¯Êý ÒýÆð·ÅÆúµÄÒâÍâ´¦Àí  
abs º¯Êý ¾ø¶ÔÖµº¯Êý  
addexitproc º¯Êý ½«Ò»¹ý³ÌÌí¼Óµ½ÔËÐÐʱ¿âµÄ½áÊø¹ý³Ì±íÖР 
addr º¯Êý ·µ»ØÖ¸¶¨¶ÔÏóµÄµØÖ·  
adjustlinebreaks º¯Êý ½«¸ø¶¨×Ö·û´®µÄÐзָô·ûµ÷ÕûΪcr/lfÐòÁР 
align Êô ......

Delphi³£ÓôúÂë»ã×Ü

¡ó[DELPHI]²úÉúÊó±êÍ϶¯Ð§¹û
ͨ¹ýMouseMoveʼþ¡¢DragOverʼþ¡¢EndDragʼþʵÏÖ£¬ÀýÈçÔÚPANELÉϵÄLABEL£º
var xpanel,ypanel,xlabel,ylabel:integer;
PANELµÄMouseMoveʼþ£ºxpanel:=x;ypanel:=y;
PANELµÄDragOverʼþ£ºxpanel:=x;ypanel:=y;
LABELµÄMouseMoveʼþ£ºxlabel:=x;ylabel:=y;
LABELµÄEndDragʼþ£ºlabel ......

delphi stringÀàÐÍתintegerʱ³ö´íµÄ¼ì²â

procedure TForm1.Button1Click(Sender: TObject);
Var
  Num: Integer;
Begin
  Try
    Num:=StrToInt(Edit1.Text);
    Edit2.Text:=IntToStr(Num*Num);
  Except
    On EConvertError Do   ShowMessage(Edit1.Text+'ÎÞ·¨×ª³ÉÕûÊý!'); ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ