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
@
Ïà¹ØÎĵµ£º
ÎÒÒ»¿ªÊ¼ÒÔΪ£¬½«±íµ¥ÉèÖÃΪÒþ²Ø£¬¿ÉÒÔÔÚ±íµ¥´´½¨Ê¼þÖм´FormCreate(Sender:TObject)È¥ÉèÖÃ
Òò´Ë£¬ ÎÒÔÚÕâ¸öprocedure TForm.FormCreate(Sender:TObject)ÖУ¬
ÏëÓÃÒ»ÏÂÁ½ÖÖ·½Ê½ÊµÏÖ
¼´£º
µ÷ÓÃ from.Hi ......
ÀûÓÃWindows APIº¯ÊýWritePrivateProfileString ºÍGetPrivateProfileString¿É¶Ô.INIÎļþ½øÐжÁд²Ù×÷¡£Æäʵ£¬¶Ô.INIÎļþµÄ¶ÁдÍêÈ«¿ÉÒÔÀûÓÃDelphiµÄÄÚÖú¯ÊýÀ´ÊµÏÖ¡£ÏÂÃæ¾Í½éÉÜһЩ¶Ô.INIÎļþ¶ÁдʱÏà¹ØµÄÀ༰ÆäÊôÐÔ·½·¨¡£
1¡¢TIniFile¶ÔÏó
ÒÔDelphiÖУ¬¶¨ÒåÁËÒ»¸öTIniFile¶ÔÏ󣬽«.INIÎļþ·â×°ÔÚÆäÖУ¬²¢ÌṩһЩ·½·¨£ ......
Ãû³Æ ÀàÐÍ ËµÃ÷
abort º¯Êý ÒýÆð·ÅÆúµÄÒâÍâ´¦Àí
abs º¯Êý ¾ø¶ÔÖµº¯Êý
addexitproc º¯Êý ½«Ò»¹ý³ÌÌí¼Óµ½ÔËÐÐʱ¿âµÄ½áÊø¹ý³Ì±íÖÐ
addr º¯Êý ·µ»ØÖ¸¶¨¶ÔÏóµÄµØÖ·
adjustlinebreaks º¯Êý ½«¸ø¶¨×Ö·û´®µÄÐзָô·ûµ÷ÕûΪcr/lfÐòÁÐ
align Êô ......
Ò»¡¢ÀàºÍ¶ÔÏó
ÀàÊǶÔÏóµÄÀàÐÍ£¬ÊÇ´´½¨¶ÔÏóµÄÄ£°å¡£Ò»¸öÀà¿ÉÒÔ´´½¨¶à¸ö¶ÔÏ󣬶øÒ»¸ö¶ÔÏó×ÜÊÇÊôÓÚij¸öÀà¡£Àà¾ßÓÐÄÚ²¿µÄÊôÐÔ£¨×´Ì¬£©ºÍÐÐΪ£¨²Ù×÷£©¡£
¶ÔÏóÊÇÀàµÄʵÀý£¬¾ßÓÐÇø±ðÓÚͬÀàÆäËû¶ÔÏóµÄÊôÐÔ¼¯ºÏ¡£
¶ÔÏóµÄÉùÃ÷´æ·ÅÓÚ¶ÑÕ»£¬¶ÔÏóµÄÒýÓôæ·ÅÓÚ¶Ñ¡£
¶þ¡¢ÀàµÄ·½·¨·ÖÀà
1¡¢ ÆÕͨ·½·¨
²»¼ÓÈκÎÐÞÊε ......
......