收录日期:2019/08/19 20:49:58 时间:2016/05/29 18:11:47 标签:VCL组件开发及应用
我要在线程中运行自己定义的函数fun,如何实现??
从定义开始,谢谢
定义一个线程类
TYourThread = Class(TThread)
private
  function fun: YourType;
protected
  procedure Execute; override;
end;

TYourThread.Execute;
begin
  fun;
end;

然后在需要的地方创建这个线程类就可以了

var
  YourThread : TYourThread; 
begin
  YourThread := TYourThread.Create(False);
end;
mk!
unit Unit2;

interface

uses
  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.
var   ff:TmyThread;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  ff:=TmyThread.Create(false,memo1.Lines);
end;

js相乘的问题 请问get_value()函数功能是什么? 各位兄弟姐妹,问题解决了就快结贴吧。 C# 封装com的问题 我要在程序中引用别人写好的软键盘该如何做呢 求IF语句判断来路 BREW 中使用内存中的JPEG创建图像 生日快樂-水水更带劲 建立表单时发生错误 Symbian C/S 机制分析| symbian os 用C#语言如何实现,将常用信息替换掉不常用的信息 众家哥哥请看看,DirectShow,简单的摄像头视频捕捉问题 一个简单的问题 Postgre怎样实现一个SQL句在不同的库之间导数据?? 动态链接库问题 【急】为什么js注册好的事件在每个匹配元素只能执行一遍?? c#如何实现把更新好的外部应用程序先关闭再启动? 【随。。】 SQL语句。 新接手无任何资料的库管系统(基于Oracle),资料更改请教 IOCP内存泄露问题 soso 上的搜索华尔兹 谁有脚本吗? directshow烦人问题 关于服务器各连接SOCKET的善后及初始化 怎么没人说这首歌?昨天听了很有感觉啊!!!12年了!长长长长长长长长长长长长长长长 \"wpfTimer_Tick\"的重载均与委托\"System.EventHandler\"不匹配 高分求字库文件 类成员函数指针 昨天的问题没说清楚,再次提问treeview的使用问题 有在无锡上班的没?最好是单身妹妹,嘿嘿.