Delphi 自定义数据层 对象的释放
作者:shine86
2011-08-18 10:53:02

 


unit DataLayer;

interface
uses SysUtils,DB, ADODB,Funcu,Protocol,TypeDefU;
type TDataLayer = class
private
conn:TAdoConnection;
public

constructor Create(); //构造函数
destructor Destroy();override;//析构函数
end;
implementation
uses GlobalVar;

//构造函数
constructor TDataLayer.Create();
begin
conn := TAdoConnection.Create(nil);
conn.ConnectionString := CONN_STR;
conn.Open;
inherited Create;
end;

//析构函数
destructor TDataLayer.Destroy();
begin
inherited destroy();
conn.close();
FreeAndNil(conn);

end;

end.

在定义Destroy析构函数时一定要加上override,否则在调用Free过程释放的时候这个函数是不会自动执行的
 

阅读本文章的读者还阅读了

Delphi 自定义数据层 对象的释放

面试拟任职位的匹配性问题详解

克罗地亚两渔夫捕获一条90公斤重的超大鲶鱼(组图)

2009年高考真题及答案 宁夏卷——文科综合

马来西亚留学到底值不值?

【流行音乐】Toni Braxton - Maybe (Radio Edit Remix)

DELPHI定义的条件编译的全部说明

shine86 上传的其他话题

剑桥少儿英语二级下册Unit10

剑桥少儿英语二级下册Unit9

剑桥少儿英语二级下册Unit8

剑桥少儿英语二级下册Unit7

剑桥少儿英语二级下册Unit6

交货装运相关条件英汉对照

运输方面的专业词汇学习

货运代理术语中英对照(下)

货运代理术语中英对照(上)

评论

看不清?
触屏版|电脑版|TOP
© 2014 我要模考网