DelphiX无缘无故引起的Access Violation问题！
新建unit2,贴上下面代码：
unit Unit2;
interface
uses
Forms,DXDraws;
type TDX=class
DirectX:TDXDraw;
constructor Create(Owner:TForm);
destructor Free();
end;
implementation
constructor TDX.Create(Owner:TForm);
begin
if DirectX=nil then begin
DirectX:=TDXDraw.Create(Owner);
DirectX.Parent:=Owner;
DirectX.Initialize();
DirectX.Visible:=true;
end;
end;
destructor TDX.Free();
begin
if DirectX <>nil then begin
DirectX.Free();DirectX:=nil;
end;
end;
end.
在主unit里加入下面代码(记得在uses里添加DXDraws,unit2)：
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;dx:array [0..1] of TDX;
begin
for i:=1 to 2 do begin //第2次发生错误
dx[0]:=TDX.Create(Self);
dx[1]:=TDX.Create(Self);
dx[0].Free();dx[0]:=nil;
dx[1].Free();dx[1]:=nil;
end;
end;
它有2次循环，第1次没发生错误，第2次循环时发生错误。我试过达到这样的条件时才会有错：1.必须是以类的形式把DelphiX包含在类里，2.必须是数组,例如dx,如果是单个则不会发生错误.
指针释放好像没问题，到底是什么问题？谢谢！
dx[0]:=TDX.Create(Self);
dx[0].Free();dx[0]:=nil;
这样试一下
dx[1]:
相关问答：
_RecordsetPtr CMyAdo::SelectRecord(string &where, string &tablename,string &field, int way )
{
int ret = 0;
_RecordsetPtr pset;
CString sql;
& ......
哪位大哥有ACCESS数据库 啊？
给小弟一个！
安装OFFICE时选择安装ACCESS
安装OFFICE时选择安装ACCESS
安装办公软件，选择自定义安装，然后选上ACCESS就可以了
office完� ......
表结构：
ProductSeriesID 自动编号
ProductSeriesName 文本
ProductSeriesRemark 备注
执行前
ProductSeriesID ProductSeriesName ProductSeriesRemark
2 LV铣刀系列 LV铣刀系列
3 钨钢舍 ......
MFC用DAO连接access数据库
往数据库里插入数据，如何弄！？
Connection strings for Access
http://www.connectionstrings.com/access
引用
C/C++ code
_ConnectionPtr m_pConnection;
&n ......
如何将Excel数据导入Access数据库?
表名:crk
End_rbody_60447848//-->
该回复于2009-10-19 10:44:48被管理员删除
对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP
......
