业务和界面分离问题--借钱冒雨上网，在线跪等求解。 ( 积分: 50 )

房地产软件计算类，明天就要交活了，设计还没完成，现在没有电脑
Tcalculate = class(TObject)
private
FfloorRate: float;//层数加价比率 价格*（1+floorRate）
FfaceRate : float;//朝向加价比率
FbuyRate : float;购买面积
FoverRate : float;超标加价比率
FallowArea: float;允许购买面积
FbuyArea : float;实际购买面积
FoverArea : float;超标面积
FfixRate : float;维修费比率
Fprice : float;单价
FTotal : float;总价
...计算方法略

public
constractor create(.....)
constractor create(.....)
end;

这是业务计算类

create 时把所有值都传进来是不可能的，比如有时只需计算超标面积即 buyArea-alloArea,create参数传这两个即可。
Ftotal = ((FallowArea*FPrice) + overArea*(1+FoverRate)) *(1+FfloorRate)*(1+FfaceRate)

比如界面层有五个文本框，输入之后马上就能出结果
edtbuyArea
edtAllorArea

edtoverArea<-结果 ->

房地产软件计算类，明天就要交活了，设计还没完成，现在没有电脑
Tcalculate = class(TObject)
private
FfloorRate: float;//层数加价比率 价格*（1+floorRate）
FfaceRate : float;//朝向加价比率
FbuyRate : float;购买面积
FoverRate : float;超标加价比率
FallowArea: float;允许购买面积
FbuyArea : float;实际购买面积
FoverArea : float;超标面积
FfixRate : float;维修费比率
Fprice : float;单价
FTotal : float;总价
...计算方法略

public
constractor create(.....)
constractor create(.....)
end;

这是业务计算类

create 时把所有值都传进来是不可能的，比如有时只需计算超标面积即 buyArea-alloArea,create参数传这两个即可。
Ftotal = ((FallowArea*FPrice) + overArea*(1+FoverRate)) *(1+FfloorRate)*(1+FfaceRate)

比如界面层有五个文本框，输入之后马上就能出结果
edtbuyArea
edtAllorArea

edtoverArea<-结果 ->

还有好多方法没有写，没有头续了

数据是直接传进来的，估计类中不会用到数据库之类的东西，还用写析构方法么？

还是多写几个create方法？

Feild全错了,有float这个吗?
>>数据是直接传进来的，估计类中不会用到数据库之类的东西，还用写析构方法么？
看情况吧,你用到了其它对象的话就要些了吧
>>还是多写几个create方法？
看你需求撒

没有float类型的吧。双精度是double，单精度是single。
如果要创建时候直接计算结果，又可能有些地方不用计算。你可以用默认参数啊。

constructor Create(field1:Single=0.0;field2:Single=0.0;field3:Single=0.0):Single;
begin
result:=field1+field2+field3;
end;