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 ·µ»ØÖµÊ
Ïà¹ØÎÊ´ð£º
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä
var
......
Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿
sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£
È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾
ѧϰѧϰ¡£
ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ×´ ......
×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......
ÎÒÔÚ³ö¿â´°¿ÚдÁ˸ö·½·¨£ºADOQueryBill µÄbNum ×ֶεÄOnValidate·½·¨ ʵÏÖµÄÊdzö¿âÊýÁ¿²»ÄÜ´óÓÚÈë¿âµÄÊýÁ¿£¬·ñÔò¾ÍÖØÐÂÊäÈëÊýÁ¿£¬ÒÔÏÂÊÇÎҵĴúÂ룺
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......
ÎÒÔÚÍøÉÏÕÒÁ˸ö¹ØÓÚIEBHOµÄ´úÂ룬Ȼºó°´ÕÕÄĸöÉèÖÃÁË£¬ºóÀ´ÔËÐеÄʱºò³öÏÖ
¹¹½¨
[¾¯¸æ] Project2.dpr(14): File not found: 'MYbho.TLB'
[¾¯¸æ] Project2.dpr(16): File not found: 'MYbho.RES'
......