类的使用
下面是我写的一个类
type TUsers=class private _id:integer; _username:string; _password:string; _tag:integer; procedure setID(id:integer); procedure setUserName(uname:string); procedure setPassword(pwd:string); procedure setTag(tag:integer); public property ID:Integer read _id write setID; property UserName:string read _username write setUserName; property PassWord:string read _password write setPassword; property Tag:integer read _tag write setTag; function AddUser(signUser:TUsers):boolean; //添加用户; end;.....function TUsers.AddUser(signUser:TUsers):boolean;begin //这里是数据库操作参数是signUser.UserName和signUser.Password;end;//在程序中调用var user:TUsers;begin user:=TUsers.create; user.UserName:='wew'; user.PassWord:='werewr'; user.AddUser(user);//这里为什么是实例操作实例,而不是类操作实例TUsers.AddUser(user);
