UC知道delphi的类写在哪里?
来源：百度知道 编辑：UC知道 时间：2024/05/17 01:37:41
unit Unit1;
interface
implementation
end.
本人没学系统的学过delphi,按着书上来的,下面是书上的代码
tlist=class(tobject)
private
datamod:tdatamod;
public
function listrec(list_code:string):boolean;
function listsfind(sql:string):boolean;
function lists(findsql:string):olevariant;
procedure listinsert(insertsql:string);
procedure listupdata(updatesql:string);
procedure listdelete(deletesql:string);
constructor create;
destructor destroy;override;
end;
implementation
constructor tlist.create;
begin
datamod:=tdatamod.create(nil);
end;
destructor tlist.destroy;
begin
freeandnil(datamod);
inheritde;
end;
function tlist.listrec(list_code:string):boolean;
begin
datamod.adoq2.close;
datamod.adoq2.sql.chear;
datamod.adoq2.sql.add('select * from list_info'+'where list_code='''+list_code'''
tlist=class(tobject) //类tlist的声明
private
datamod:tdatamod; //私有变量
public
//公共方法的定义
function listrec(list_code:string):boolean;
function listsfind(sql:string):boolean;
function lists(findsql:string):olevariant;
procedure listinsert(insertsql:string);
procedure listupdata(updatesql:string);
procedure listdelete(deletesql:string);
//构造方法的声明
constructor create;
destructor destroy;override;
end;
implementation
//构造方法的实现
constructor tlist.create;
begin
datamod:=tdatamod.create(nil);
end;
destructor tlist.destroy;
begin
freeandnil(datamod);
inheritde;
end;
//其他公共方法的实现
function tlist.listrec(list_code:string):boolean;
begin
datamod.adoq2.close;
datamod.adoq2.sql.chear;
datamod.adoq2.sql.add('select * from list_info'+'where list_code='''+list_code'''');
datamod.adoq2.open;<