收录日期:2019/04/24 08:33:35 时间: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;

谁有卖delphi5开发人员指南这本书?请进 二叉排序树 这个是什么问韪? 该说的说了 该做的做了 如何自己创建一个MDI窗口,定义并显示MDI 的FORMVIEW子窗口 Delphi程序如何检查操作系统是否安装IIS?如何在注册表里面检查服务(Service),或者调用IIS的接口来检测? DB2 中怎样实现同一节点下不同数据库的查询? jar包里放的策略文件,程序找不到? 如何让DataGrid能够在客户端点击某一行的任意位置,而触发服务端的事件(Asp.net) 看看这里有多少 星际 玩家, 第三界星际个人联赛在线收听. 连接SQL的错误代码!!! 【评理】良丑、老项、各位斑竹,麻烦请进 关于UNIX文件I/O操作的问题,解决问题立即结贴 ACCESS中用SQL更新含SQL语句数据,怎么实现的! 求tomcatPluginV3,Sysdeo官网无法下载了 J2ME中可以利用anonymous class添加事件程序吗?? 大家看看我的session怎么了? 关于windows环境32位服务器ORACLE数据库占用内存限制的问题? 关于搜索 极难!Vs 2005 Beta2 和 VSS8.0 的绑定问题? 为什么我一将某个函数设为虚拟(virtual),程序运行就说“该内存不能为read”? 求教字符串资源的问题 vc++中如何寻找文件 谁能把这段xml通过visual c sharp 调用从存储过程生成数据表[每天中午12:00 - 13:00在线] vc静态使用mfc库无法通过,但是动态使用mfc库可以通过,求教。。。 请问一下用C#怎么实现获取包含在 DataSet 中的表的集合 抢分: 50分 http://www.shiseido.co.jp/做成这样的网站大约要多少钱? 如何取得第N个记录的数据?谢谢 请教临接表,插入排序!!紧急!! 使用java -prof 出现的错误