下面是我写的一个类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);