K
kl78pgy
Unregistered / Unconfirmed
GUEST, unregistred user!
以下是提示:
Project XXXX.exe raised wxception class EOSroor with message 'A call to an OS
function failed'.Process stopped.Use Step or Run to continue.
以下是我定义的
type
TscanThread = class(TThread)
private
x:integer;
procedure scanall;
procedure scanone;
procedure findfiles(apath: string);
{ Private declarations }
protected
procedure Execute;
override;
public
constructor Create(a:integer);virtual;
destructor Destroy;override;
end;
…………
constructor TscanThread.Create(a:integer);//是不是这个a有问题?
begin
inherited create(true);
//创建后挂起
x:=a;
Resume;
//准备好后继续
end;
destructor TscanThread.Destroy;
begin
inherited Destroy;
end;
当执行完后出错!
procedure TscanThread.Execute;
begin
FreeOnTerminate:=true;//退出后清空所占内存
case xx of
0:…………;//不同的代码
1:…………;//不同的代码
end;
end;
Project XXXX.exe raised wxception class EOSroor with message 'A call to an OS
function failed'.Process stopped.Use Step or Run to continue.
以下是我定义的
type
TscanThread = class(TThread)
private
x:integer;
procedure scanall;
procedure scanone;
procedure findfiles(apath: string);
{ Private declarations }
protected
procedure Execute;
override;
public
constructor Create(a:integer);virtual;
destructor Destroy;override;
end;
…………
constructor TscanThread.Create(a:integer);//是不是这个a有问题?
begin
inherited create(true);
//创建后挂起
x:=a;
Resume;
//准备好后继续
end;
destructor TscanThread.Destroy;
begin
inherited Destroy;
end;
当执行完后出错!
procedure TscanThread.Execute;
begin
FreeOnTerminate:=true;//退出后清空所占内存
case xx of
0:…………;//不同的代码
1:…………;//不同的代码
end;
end;