unit Unit2;interfaceuses
Classes;type
TMyThread = class(TThread)
private
frz:string;
procedure writerz(s:string);
protected
procedure Execute; override;
public
constructor Create(Suspended:boolean;s:string);
end;implementationconstructor TMyThread.Create(Suspended: boolean;s:string);
begin
inherited create(Suspended);
frz:='1111';
writerz('222222');
end;procedure TMyThread.Execute;
begin
inherited;
writerz(frz);
end;procedure TMyThread.writerz(s: string);
var F1: TextFile;
begin
AssignFile(F1, 'd:\1.txt');
try
Append(F1);
except
Rewrite(F1);
end;
Write(F1, s);
CloseFile(F1);
end;end.
每次都是能创建的,可以在日志中看到222,但是就是看不到111,也就是说Execute没有运行,请问一下是什么问题引起的
Classes;type
TMyThread = class(TThread)
private
frz:string;
procedure writerz(s:string);
protected
procedure Execute; override;
public
constructor Create(Suspended:boolean;s:string);
end;implementationconstructor TMyThread.Create(Suspended: boolean;s:string);
begin
inherited create(Suspended);
frz:='1111';
writerz('222222');
end;procedure TMyThread.Execute;
begin
inherited;
writerz(frz);
end;procedure TMyThread.writerz(s: string);
var F1: TextFile;
begin
AssignFile(F1, 'd:\1.txt');
try
Append(F1);
except
Rewrite(F1);
end;
Write(F1, s);
CloseFile(F1);
end;end.
每次都是能创建的,可以在日志中看到222,但是就是看不到111,也就是说Execute没有运行,请问一下是什么问题引起的
在CREATE的时候参数用了true,变成非自动运行了