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
......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
·µ»ØµÄÄÚÈÝÊÇÈçÏ´úÂë,ÔõôÄÜÇþµÀ2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
ÇëÎÊDelphiÓÐÊ÷ÐοؼþÂð£¿
ÔõÑùʹÓã¿
Ttreeview
treeview.items.addchild(nil(Éϼ¶½Úµã),'°¸·¢Ê±·¢'(text));
raize ¿Ø¼þ°üÀïÃæÓУ¬csdnÓÐÏÂÔØµÄ
²é°ïÖúTTreeViewºÍTNodeÁ½¸öÀà
TTreeView ......
ÎÒÔÚÍøÉÏÕÒÁ˸ö¹ØÓÚIEBHOµÄ´úÂ룬Ȼºó°´ÕÕÄĸöÉèÖÃÁË£¬ºóÀ´ÔËÐеÄʱºò³öÏÖ
¹¹½¨
[¾¯¸æ] Project2.dpr(14): File not found: 'MYbho.TLB'
[¾¯¸æ] Project2.dpr(16): File not found: 'MYbho.RES'
......