下面是我写的一个类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);
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);
解决方案 »
- delphi开发第三方控件焦点问题
- 大家有沒有做過ServerSocket的文件保存功能啊,客戶端同時發文件過來時,保存多個文件由於共用一個全局文件流而發生錯誤!大家是怎麼處理的?
- 怎么才能取到listbox里面数据项的某一个字符串???
- 一个简单的小问题。谢
- Dll问题
- 菜鸟问题——在线等候
- 请大家帮忙看看这段简单的代码,老是报错
- 点击窗口的"X"后不让他关闭而做我写在OnClose里的代码?
- 异常处理!
- delphi在进行ADO连接ORACEL816时,编译出现“发生了一个ORACLE错误,但无法从ORACLE中恢复错误信息。”ADO连接也显示“连接测试成功”了
- 如何才能访问到 controls.ControlAtomString变量
- Scripter Studio 对象识别问题?
而不是类方法
类方法这样声明
class Function AddUser(signUser:TUsers):boolean; //添加用户;
实例.AddUser(实例)看着好别扭