一个客户管理系统，很小，但考虑到以后维护修改想用类写，
怎样写一customer类，有添加删除修改的方法？
type
Tcustomer = class(Tobject)
private
name: String;
procedure Setname(const Value: String);
public
property thename: String read name write SetName;
...
我以前是按上面的写，不过有没有简单的写法？我不明白为什么private？
怎样写一customer类，有添加删除修改的方法？
type
Tcustomer = class(Tobject)
private
name: String;
procedure Setname(const Value: String);
public
property thename: String read name write SetName;
...
我以前是按上面的写，不过有没有简单的写法？我不明白为什么private？
-----------------------------------------------------------------------
不知道你这个简单追求的是那方面的简单，代码简单吗？我猜你的意思可能是为什么要有一个private的Setname，还有有一个 public的thename。
setname是一个方法，完成名字的设置工作，加上private是为了最大限度的隐藏他的实现。但还要提供一个接口供用户调用，所以，thename就出现了，这是一个属性，一个访问接口，一个指针。
如果你的这个管理系统很小，那么没有必要死搬应套，非要写成类，或者类中非要有那么多私有和public的区别。如果你这个类实现的功能比较简单，你又想少写点代码，那就把setname设置成public就行了，把thename去掉。