uthread.pas

来自「中式财务栏 表格式录入 运行时设置可显示列、列名、列宽」· PAS 代码 · 共 50 行

{*******************************************************}
{                                                       }
{       通用线程类                                      }
{                                                       }
{       版权所有 (C) 2008 咏南工作室（陈新光）          }
{                                                       }
{*******************************************************}

unit uThread;

interface

uses
  Classes,SysUtils;

Type
  //Tfun = procedure;
  Tfun = procedure of object;
  TFunThread =Class(TThread)
  private
    fun:Tfun;
  protected
    procedure Execute;override;
  public
    Constructor Create(Afun:Tfun);
    Destructor  Destroy;override;
  end;

implementation

constructor TFunThread.Create(Afun: Tfun);
begin
  inherited Create(true);
  FreeOnTerminate :=true;
  fun:=aFun;
  Resume;
end;

destructor TFunThread.Destroy;
begin
  
end;

procedure TFunThread.Execute;
begin
  fun;
end;

end.