线程简单问题

Question

我要在线程中运行自己定义的函数fun,如何实现？？
从定义开始，谢谢

Answer 1

定义一个线程类
TYourThread = Class(TThread)
private
  function fun: YourType;
protected
  procedure Execute; override;
end;TYourThread.Execute;
begin
  fun;
end;然后在需要的地方创建这个线程类就可以了

Answer 2

var
  YourThread : TYourThread; 
begin
  YourThread := TYourThread.Create(False);
end;

Answer 3

unit Unit2;interfaceuses
  Classes,SysUtils;type
  TmyThread = class(TThread)
  private
    { Private declarations }
    fa:Tstrings;
  protected
    procedure Execute; override;
  public
     constructor Create(CreateSuspended: Boolean;a:Tstrings);
  end;implementation
constructor TmyThread.Create(CreateSuspended: Boolean;a:Tstrings);
begin
  fa:=a;
  inherited create(CreateSuspended);
end;
procedure test(a:Tstrings);
var i:integer;
begin
  for i:=0 to 100 do
  begin
    a.Add(inttostr(i));
  end;
end;
procedure TmyThread.Execute;
begin
  { Place thread code here }
  test(fa);
end;end.

Answer 4

var   ff:TmyThread;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ff:=TmyThread.Create(false,memo1.Lines);
end;