H
hurryman
Unregistered / Unconfirmed
GUEST, unregistred user!
错误提示:
//////////////////////////////////
project pjmain.exe raised exception class eaccessviolation
with message 'access violation at address 004e1c8d in module'
'pjmain.exe',read of address 0000009c'rocess stopped ,use step or
run to continue.
//////////////////////////////////
我的代码如下:
提示错误后,停在*号位置。
procedure TpdForm.FormShow(Sender: TObject);
var pzstr:tstrings;
i:integer;
rksl:integer;
cksl:integer;
tksl:integer;
jssl:integer;
qcsl:integer;
begin
pzstr:=tstringlist.Create ;
pzstr.Clear ;
* if not (utdatamoule.DataModule2.hwglpzADODataSet.Active ) then
utdatamoule.DataModule2.hwglpzADODataSet.Active :=true;
utdatamoule.DataModule2.hwglpzADODataSet.Close ;
utdatamoule.DataModule2.hwglpzADODataSet.CommandText :='select distinct pz from cjpz';
utdatamoule.DataModule2.hwglpzADODataSet.Open ;
。。。。。。。。。。
//////////////////////////////////
project pjmain.exe raised exception class eaccessviolation
with message 'access violation at address 004e1c8d in module'
'pjmain.exe',read of address 0000009c'rocess stopped ,use step or
run to continue.
//////////////////////////////////
我的代码如下:
提示错误后,停在*号位置。
procedure TpdForm.FormShow(Sender: TObject);
var pzstr:tstrings;
i:integer;
rksl:integer;
cksl:integer;
tksl:integer;
jssl:integer;
qcsl:integer;
begin
pzstr:=tstringlist.Create ;
pzstr.Clear ;
* if not (utdatamoule.DataModule2.hwglpzADODataSet.Active ) then
utdatamoule.DataModule2.hwglpzADODataSet.Active :=true;
utdatamoule.DataModule2.hwglpzADODataSet.Close ;
utdatamoule.DataModule2.hwglpzADODataSet.CommandText :='select distinct pz from cjpz';
utdatamoule.DataModule2.hwglpzADODataSet.Open ;
。。。。。。。。。。