Operate_DataBase = class(TThread);线程定义
///////////
nThread.Create(False);线程的调用
///////////线程的创建
Constructor Operate_DataBase.Create(Suspended:Boolean);
begin
CoInitialize( nil );
inherited create(false);
FreeOnTerminate:=True;
FAdoqry :=TAdoQuery.Create(nil);
end;
我跟踪到inherited create(false);,就报错。
请问为何?
///////////
nThread.Create(False);线程的调用
///////////线程的创建
Constructor Operate_DataBase.Create(Suspended:Boolean);
begin
CoInitialize( nil );
inherited create(false);
FreeOnTerminate:=True;
FAdoqry :=TAdoQuery.Create(nil);
end;
我跟踪到inherited create(false);,就报错。
请问为何?
我不知道你这段代码是做什么用的,但是在Delphi中,线程除了你的构造方法以外还应该重载Execute过程,线程执行的代码就放在该过程里。msn:[email protected]