函数 - 随笔分类 - 覆雨翻云

dephi的bug?四舍五入的问题! (来源于大富翁)

摘要：来自: wooder, 时间: 2004-02-07 2:00:00, ID: 2441045 做个零售系统,打折后一般计算金额到分,但一般都不收分, 因此要把分四舍五入,我想用formatfloat来转换一下. 但这样试,即只要用浮点型变量碰巧取到113.05这样分是5的值, 通formatfloat得到的值总是113.0,即没有四舍五入.但如果不用变量,直接写formatfloat('0.0',113.05)获得的值又是113.1, 看来是取浮点变量就不行,那位大侠测一下. procedure TForm1.Button1Click(Sender: TObject); v 阅读全文

posted @ 2011-11-07 18:40 覆雨翻云阅读(1065) 评论(0) 推荐(0)

delphi中move函数的用法

摘要：我们能看到以下代码 var pSource,pDest:PChar; len: integer; .......................//一些代码 Move(pSource,pDest,len); //错误 Move(pSource^,pDest^,len); //正确看起来确实好像是传值，而不是传地址，但是各位别忘了，这不是C，C++，而是Delphi Object Pas... 阅读全文

posted @ 2011-01-02 13:19 覆雨翻云阅读(1446) 评论(0) 推荐(0)

SysUtils单元函数

摘要：首部 function Languages: TLanguages; $[SysUtils.pas 功能返回系统语言对象说明通过此函数可以得到系统的语言环境参考 type SysUtils.TLanguages 例子 ///////Begin Languages procedure TForm1.Button1Click(Sender: TObject); var I: Integer;... 阅读全文

posted @ 2010-11-01 23:24 覆雨翻云阅读(1697) 评论(0) 推荐(0)

StrUtils单元中的函数

摘要：首部 function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas 功能返回两个字符串是否相似说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写参考 function StrUtils.SoundexProc; var S... 阅读全文

posted @ 2010-11-01 23:20 覆雨翻云阅读(479) 评论(0) 推荐(0)

随笔分类 - 函数