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

delphi double µÄÊýÖµ ±ä³É5.5518684497e+250 ÔÚÏß

·½·¨ÄÚ·µ»ØÒ»¸ödouble µÄÖµÕýÈ·.Èç678.9
µ«ÊÇÎÒÓÃÒ»¸ödouble µÄÖµ½ÓÊÕºó±ä³ÉÁË 5.5518684497e+250
ÕâÑùµÄÐÎʽ.
ÊÇÔÚͬһ¸öexeÀï½ÓÊÕµÄÂ𣿷½·¨µÄ·µ»ØÀàÐͺͽÓÊյıäÁ¿ÀàÐͶ¼ÊÇdoubleÂð£¿

¸Ð¾õÖ»ÓÐÀàÐͲ»Ò»Ö£¬²Å»áÈç´Ë°¡

Èç¹ûÊÇ×Ô¼ºµÄ³ÌÐò£¬ÔÚ·½·¨Àï·µ»ØÇ°£¬°Ñresult°´byteÊä³öÒ»´Î
½ÓÊպ󣬱äÁ¿Ò²°´byteÊä³öÒ»´Î£¬¿´Ò»¿´2ÕßµÄ16½øÖÆ×Ö·û´®ÊÇ·ñ²»Í¬

LZÊÇÈçºÎÓÃÒ»¸ödouble µÄÖµ½ÓÊÕµÄ? Ìù´úÂë³öÀ´¿´¿´¡£

function GetDanbaoFeefromMode(mode_code: string; loanquantity, loanyear: double): double;
const
  SQL_MODE = 'SELECT %F/10000*FAST_COUNT AA from DIC_GHRGASS WHERE MODE_CODE=%s AND YEARMUCH=%f';
var
  sfee: string;
begin
  Result:=0;
  if mode_code = '' then Exit;

  sfee:=vartostr(Query_value(CDatabaseName,Format(SQL_MODE,[loanquantity, mode_code, loanyear])));
  if sfee <> '' then
  begin
    Result:=StrToFloat(sfee);
  end;

  //Éá·Öµ½½Ç 2006.11.30
  Result:=RoundSf(result);
end;

Fee:double;
Fee:=GetDanbaoFeefromMode(qyCharge.FieldByName('mode_code').AsString, nBSQuantity, nBSSpan);
GetDanbaoFeefromMode ·µ»ØÖµÕýÈ·,µ«Fee½ÓÊÕʱ¾Í±ä³ÉÁË 5.5518684497e+250



RoundSf´¦ÀíºóµÄ½á¹ûÒª¿´¿´ÊDz»ÊǶÔ

תÀ´×ªÈ¥µÄ£¬¸ã¸´ÔÓÁË


GetDanbaoFeefromMode ·µ»ØÖµÊ


Ïà¹ØÎÊ´ð£º

DELPHIÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

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

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


ÎÞÈ˻شð£¿

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

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

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

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

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

ÇóÒ»¶Îdelphi´úÂëתC#´úÂ룬¼±Ó㬿ÉÈËÃñ±ÒÖ§¸¶£¬Ð»Ð»

¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡­¡­);
Îļþ£ºUShare.pas
Delphi(Pascal) code:

unit UShare;
interface
uses Windows, Me ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ