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没有运行,请问一下是什么问题引起的