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

DelphiÈçºÎÖ±½ÓÈ¡¸¡µãÊýµÄÃÝ

Ò»¸ö¸¡µãÊý±äÁ¿Val£¬ÈçºÎͨ¹ýDelphiµÄº¯Êý£¨×¢ÒâÊÇDelphiµÄº¯Êý¶ø²»ÊÇ×Ô¶¨ÒåµÄº¯Êý£©Ö±½ÓÈ¡ËüµÄÃÝÖµ£¿

±ÈÈçµ±Val:=101.3ʱ£¬ËüµÄ¿ÆÑ§±í´ïʽÐÎʽΪ¡°1.013E+2¡±£¬ÎÒÏëµÃµ½ËüµÄÃÝÖµ¡°2¡±
µ±Val:=0.0103ʱ£¬ËüµÄ¿ÆÑ§±í´ïʽÐÎʽΪ¡°1.013E-2¡±,ÎÒÏëµÃµ½µÄÖµÊÇ¡°-2¡±
²éÁËһϹØÓÚMathµÄµ¥Ôªº¯Êý£¬Ã²ËÆÃ»ÓÐÖ±½ÓÖ§³ÖµÄº¯Êý
²»ÖªµÀÆäËüµ¥ÔªÓÐûÓС£

Èç¹ûʵÔÚûÓУ¬ÎÒ»á°Ñ·Ö¸øË㷨ЧÂÊ×î¸ßµÄһλ¡£


1¡¢ÓÃmod£¬ÒÔ1Ϊ·Ö½çÖµ
2¡¢ÀûÓÃFormatFloat£¬ÔÙÌáÈ¡ÃÝÖµ


ÒýÓÃ
edit1.Text:=inttostr(round(log10(strtofloat(edit1.Text))));

Ô­À´Óк¯Êý

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;



ÒýÓÃ
edit1.Text:=inttostr(round(log10(strtofloat(edit1.Text))));

2 Â¥Õý½â
round(log10(101.3)) ---> 2
round(log10(0.0103)) ---> -2

ÔÆÄÏÌìÓοƼ¼£¬Ö÷Òª¿ª·¢´óÐÍ3DÍøÂçÓÎÏ·

¸ßн³ÏÕÐ

ÓÎÏ·¿Í»§¶Ë£¬·þÎñÆ÷¶Ëdelphi ³ÌÐòÔ±

°ü³Ôס

µç»° 0871-6089588

²»ÖªµÀDelphiµÄ¸¡µãÊýÔÚ²»Í¬ÐͺŵÄCPU£¨µ«½öÏÞÓÚX86»òX64ϵÁлú)ÉÏÊÇ·ñ²ÉÓõÄͬһÖÖ¸ñʽ£¬Èç¹ûÊǵϰ£¬ÎÒµ¹ÊÇÏëÖ±½Ó·ÖÎ


Ïà¹ØÎÊ´ð£º

delphi動態調ÓÃdllµÄÀ§»ó

procedure RunFunction;  
  type  
  TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä  
  var  
  ......

¹ØÓÚ±ÜÃâdelphi°æÈ¨»òÕßÊÕÂÉʦº¯µÄ·½°¸¡£

×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......

100·Ö£¡¹ØÓÚvbµ÷ÓÃdelphi±àдµÄdllµÄÎÊÌ⣬¼±£¡£¡£¡

¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......

2009ѧϰdelphiµÄǰ¾°

ÎÒ±¾À´ÔÚѧУÊÇŪµÄJ2EE
×òÌìÈ¥Á˳¤É³Ò»¼Ò¹«Ë¾Ó¦Æ¸ ˵ÊÇÓÐÒ»¸öÏîÄ¿ delphiµÄ
ʵϰÆÚÒ»¸öÔ ËÄÌì°ëµÄdelphiÅàѵ ºóÃæ25Ìì¸øÄãÒ»¸öÉè¼ÆÎĵµ×Ô¼º×öÒ»¸öÏîÄ¿
×ߺ󲻾ôòµç»°¹ýÀ´½ÐÎÒÐÇÆÚһȥ±¨µ½ 
¿´µ½delphiµ ......

Ç¿ÁÒ½¨ÒéDELPHI°æ¸ü»»´ó°æ - Delphi / ·Ç¼¼ÊõÇø

hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ­³£ÉÏÀ´×ª×ªµÄ

ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔ­Òò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ