Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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動態調ÓÃdllµÄÀ§»ó

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

Çë½ÌÏ£¬ÓÃDELPHI×öSOHUµÄ - Delphi / ·Ç¼¼ÊõÇø

Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿

sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£

È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾

ѧϰѧϰ¡£

ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ­×´ ......

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

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

delphi ½øÏú´æÊ±Èë¿âÊýÁ¿ºÍ³ö¿âÊýÁ¿¼äµÄ¹ØÏµ

ÎÒÔÚ³ö¿â´°¿ÚдÁ˸ö·½·¨£ºADOQueryBill µÄbNum ×ֶεÄOnValidate·½·¨ ʵÏÖµÄÊdzö¿âÊýÁ¿²»ÄÜ´óÓÚÈë¿âµÄÊýÁ¿£¬·ñÔò¾ÍÖØÐÂÊäÈëÊýÁ¿£¬ÒÔÏÂÊÇÎҵĴúÂ룺
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......

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ºÅ