当前位置:编程学习 > Delphi >>

delphi 问题

procedure Tcprk_win.tempriceValidate(Sender: TField); begin Tablep if abs(tempTable.fieldbyname('price').asfloat - tempTableBhsj.value * (1 + tempTable.fieldbyname('sv').asfloat)) >= 0.00001 then tempTable.fieldbyname('bhsj').asfloat := StrToFloat(FormatFloat('0.000000', tempTablePrice.value / (1 + tempTable.fieldbyname('sv').asfloat))); tempTable.fieldbyname('amount').asfloat := Round(tempTable.fieldbyname('bhsj').asfloat * tempTableshl.value * 100) / 100; end; tabple 和abs什么意思还有就是round
答案:如果你没有贴错代码的话,
这段程序应该通不过编译,
因为tabple不是一个关键字或者是函数。
而且其后也没有;分隔符。
round是取整函数,怎么用你最好自己去查帮助,
这样有助于你解决问题的能力。
其他:tempTable,数据集组件,链接数据表的数据集组件名称(写代码人定义的名称),abs是一个返回绝对值的函数,round则是一个取整函数. tempTable 是个自己定义的对象的名字,没有实际意义,abs和round是个函数了,可以查询相关函数功能说明,要学会自己分析! 

上一个:delphi做的程序 installaware 打包 第三方控件如 mscomm
下一个:VB6.0 或 Delphi 如何发布成 HTML文件

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,