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


Ïà¹ØÎÊ´ð£º

PythonÖеÄUnicodeÔÚDelphiÈçºÎ»¹Ô­³ÉGb2312£¿

ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ

ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô­³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......

delphi Ctrl+×ó¼ü ÎÞ·¨²é¿´ windows.pas Ôõô°ì

ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£ 
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£

µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË

ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......

DelphiÖÐÊý¾Ý¿â²éѯµÄÒÉ»ó

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

VC++ ÖеÄ&·ûºÅ ¶ÔÓ¦µÄÊÇDelphiÖеÄÄĸö·ûºÅ£¿£¿

VC++ ÖУ¬ &±äÁ¿Ãû¡£ ÊÇʲôÒâ˼¡£ DelphiÖÐ ºÍËûÒ»ÑùµÄ·ûºÅ ÊÇÄĸö¡¢£¿

´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌåÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ ......

delphi activx µÄÎÊÌâ 110·Ö

ÎÒÔÚÍøÉÏÕÒÁ˸ö¹ØÓÚIEBHOµÄ´úÂ룬Ȼºó°´ÕÕÄĸöÉèÖÃÁË£¬ºóÀ´ÔËÐеÄʱºò³öÏÖ 
[´íÎó] Unit1.pas(15): Undeclared identifier: 'GetTypeInfoCount'
[´íÎó] Unit1.pas(15): Undeclared identifier: 'GetTypeInfo ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ