W
wvy
Unregistered / Unconfirmed
GUEST, unregistred user!
关于类的函数和属性的争论
有类 TEmployee = Class
private
FId : Integer;
FName : String;
FBM : String;
public
....
end;
现在 使用中 有查找 一项 要求:
用户输入了 编码, 类的实例的属性返回查找的结果
有两种思想:
1. var zEmployee : TEmployee;
....
zEmployee := TEmployee.Create();
zEmployee.BM := sInputBM;
if zEmployee.bFind then
begin
...
end
else begin
...
end;
2. var zEmployee : TEmployee;
...
zEmployee := TEmployee.Create();
if zEmployee.Find(sInputBM) then
begin
...
end
else begin
....
end;
两种方法 矛盾集中在 是 提供 Find 方法
还是 在
property BM :String Read FBM Write FFindByBM()
希望大家讨论。
有类 TEmployee = Class
private
FId : Integer;
FName : String;
FBM : String;
public
....
end;
现在 使用中 有查找 一项 要求:
用户输入了 编码, 类的实例的属性返回查找的结果
有两种思想:
1. var zEmployee : TEmployee;
....
zEmployee := TEmployee.Create();
zEmployee.BM := sInputBM;
if zEmployee.bFind then
begin
...
end
else begin
...
end;
2. var zEmployee : TEmployee;
...
zEmployee := TEmployee.Create();
if zEmployee.Find(sInputBM) then
begin
...
end
else begin
....
end;
两种方法 矛盾集中在 是 提供 Find 方法
还是 在
property BM :String Read FBM Write FFindByBM()
希望大家讨论。