unit3.pas

来自「Delphi 6分布式开发例程主要是分布式开发的源码」· PAS 代码 · 共 35 行

unit Unit2;
interface
uses
    Classes,comctrls;
type
  HoldMeThread = class(TThread)
  private
    i:integer;
  protected
    procedure Execute; override; // Main thread execution
  published
    constructor CreateIt(TempBool:boolean);
    destructor Destroy; override;
  end;

implementation
constructor HoldMeThread.CreateIt(TempBool:boolean);
begin
  inherited Create(TempBool);      // Create thread suspended
end;

destructor HoldMeThread.Destroy;
begin
   inherited destroy;
end;


procedure HoldMeThread.Execute; // Main execution for thread
var
 i : cardinal;
begin
end;
end.