Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÖÐÊý¾Ý¿â²éѯµÄÒÉ»ó

×òÍíÔÚDelphiÊý¾Ý¿â²éѯÖÐÓöµ½ÁËÒ»¸öÒɻ󡣴úÂëÈçÏ£º
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
  XY : string;
begin
  XY := comboboxxy.Items[comboboxx ......

delphiÈçºÎµ÷ÓÃdllÎļþÖеÄexe

Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿


ÎÞÈ˻شð£¿

×ö³É×ÊÔ´Î ......

°²×°ÁËjre6.17ºó£¬Delphi²»Äܹرգ¿

ÈçÌ⣬ µã»÷DelphiµÄFile²Ëµ¥µÄExitÍ˳öDelphi£¬ Delphi²¿·Ö¹Ø±Õ--¼´²»ÄÜÔÙ²Ù×÷Delphi£¬µ«ÈÎÎñÀ¸ºÍ½ø³ÌÀDelphi»¹ÔÚÔËÐУ¬Ã»ÓÐÕæÕýµÄÍ˳ö¡£ÊDz»Êǰ²×°ÁËjre¸Ä±äÁËijЩ»·¾³±äÁ¿µ¼Ö£¬ÇëÎʸßÊÖÈçºÎ½â¾ö£¿ ×¢£ºÃ»°²×° ......

delphi activx µÄÎÊÌâ 110·Ö

ÎÒÔÚÍøÉÏÕÒÁ˸ö¹ØÓÚIEBHOµÄ´úÂ룬Ȼºó°´ÕÕÄĸöÉèÖÃÁË£¬ºóÀ´ÔËÐеÄʱºò³öÏÖ
¹¹½¨
  [¾¯¸æ] Project2.dpr(14): File not found: 'MYbho.TLB'
  [¾¯¸æ] Project2.dpr(16): File not found: 'MYbho.RES' ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ