DelphiÈçºÎÖ±½ÓÈ¡¸¡µãÊýµÄÃÝ
Ò»¸ö¸¡µãÊý±äÁ¿Val£¬ÈçºÎͨ¹ýDelphiµÄº¯Êý£¨×¢ÒâÊÇDelphiµÄº¯Êý¶ø²»ÊÇ×Ô¶¨ÒåµÄº¯Êý£©Ö±½ÓÈ¡ËüµÄÃÝÖµ£¿
±ÈÈçµ±Val:=101.3ʱ£¬ËüµÄ¿ÆÑ§±í´ïʽÐÎʽΪ¡°1.013E+2¡±£¬ÎÒÏëµÃµ½ËüµÄÃÝÖµ¡°2¡±
µ±Val:=0.0103ʱ£¬ËüµÄ¿ÆÑ§±í´ïʽÐÎʽΪ¡°1.013E-2¡±,ÎÒÏëµÃµ½µÄÖµÊÇ¡°-2¡±
²éÁËһϹØÓÚMathµÄµ¥Ôªº¯Êý£¬Ã²ËÆÃ»ÓÐÖ±½ÓÖ§³ÖµÄº¯Êý
²»ÖªµÀÆäËüµ¥ÔªÓÐûÓС£
Èç¹ûʵÔÚûÓУ¬ÎÒ»á°Ñ·Ö¸øË㷨ЧÂÊ×î¸ßµÄһλ¡£
1¡¢ÓÃmod£¬ÒÔ1Ϊ·Ö½çÖµ
2¡¢ÀûÓÃFormatFloat£¬ÔÙÌáÈ¡ÃÝÖµ
ÔÀ´Óк¯Êý
Delphi(Pascal) code:
function Log10(const X: Extended): Extended;
{ Log.10(X) := Log.2(X) * Log.10(2) }
asm
FLDLG2 { Log base ten of 2 }
FLD X
FYL2X
FWAIT
end;
2 Â¥Õý½â
round(log10(101.3)) ---> 2
round(log10(0.0103)) ---> -2
ÔÆÄÏÌìÓοƼ¼£¬Ö÷Òª¿ª·¢´óÐÍ3DÍøÂçÓÎÏ·
¸ßн³ÏÕÐ
ÓÎÏ·¿Í»§¶Ë£¬·þÎñÆ÷¶Ëdelphi ³ÌÐòÔ±
°ü³Ôס
µç»° 0871-6089588
²»ÖªµÀDelphiµÄ¸¡µãÊýÔÚ²»Í¬ÐͺŵÄCPU£¨µ«½öÏÞÓÚX86»òX64ϵÁлú)ÉÏÊÇ·ñ²ÉÓõÄͬһÖÖ¸ñʽ£¬Èç¹ûÊǵϰ£¬ÎÒµ¹ÊÇÏëÖ±½Ó·ÖÎ
Ïà¹ØÎÊ´ð£º
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......
¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
ÎÒ±¾À´ÔÚѧУÊÇŪµÄJ2EE
×òÌìÈ¥Á˳¤É³Ò»¼Ò¹«Ë¾Ó¦Æ¸ ˵ÊÇÓÐÒ»¸öÏîÄ¿ delphiµÄ
ʵϰÆÚÒ»¸öÔ ËÄÌì°ëµÄdelphiÅàѵ ºóÃæ25Ìì¸øÄãÒ»¸öÉè¼ÆÎĵµ×Ô¼º×öÒ»¸öÏîÄ¿
×ߺ󲻾ôòµç»°¹ýÀ´½ÐÎÒÐÇÆÚһȥ±¨µ½
¿´µ½delphiµ ......
hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ
ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......