希望做个线程某固定时间间隔后就执行某方法,但总是不成功,希望大家给看看,谢谢!
代码如下:
ThreadUpdate = class(TThread)
protected
FTimer:TTimer;
procedure FTimerTimer(Sender:TObject);
procedure Execute; override;
public
Constructor Create;
Destructor Destroy; override;
end;
function myfunction():string;
implementation constructor ThreadUpdate.Create; begin
inherited Create(False);
FTimer:=TTimer.Create(nil);
FTimer.OnTimer:= FTimerTimer;
FTimer.Interval :=100; //执行间隔时间
FTimer.Enabled :=true;
end; destructor ThreadUpdate.Destroy;
begin
inherited;
FTimer.Free;
end; procedure ThreadUpdate.Execute;
begin
myfunction;
end;
procedure ThreadUpdate.FTimerTimer(Sender: TObject);
begin
Execute;
end;
代码如下:
ThreadUpdate = class(TThread)
protected
FTimer:TTimer;
procedure FTimerTimer(Sender:TObject);
procedure Execute; override;
public
Constructor Create;
Destructor Destroy; override;
end;
function myfunction():string;
implementation constructor ThreadUpdate.Create; begin
inherited Create(False);
FTimer:=TTimer.Create(nil);
FTimer.OnTimer:= FTimerTimer;
FTimer.Interval :=100; //执行间隔时间
FTimer.Enabled :=true;
end; destructor ThreadUpdate.Destroy;
begin
inherited;
FTimer.Free;
end; procedure ThreadUpdate.Execute;
begin
myfunction;
end;
procedure ThreadUpdate.FTimerTimer(Sender: TObject);
begin
Execute;
end;
解决方案 »
- 经过学习与研究终于研究出一个很菜的线程实例分享一下
- 关于DELPHI7的控件问题:[Fatal Error] MDIAPP.dpr(16): File not found: 'wwdblook.dcu'
- delphi的代码的转化
- 局域网拷贝文件的问题
- Delphi控件与注册表信息有关吗?
- 如何生成这样的sql语句
- 调查——这样的水平在北京能找到什么样的工作?
- 请教一个关于制作安装软件的问题?
- TChart的组合打印问题
- 继续讨论“这关系到delphi程序员的命运与前途。请快进入!!!!!!”
- 怎样从AstaClientDataSet中读取一个类型为Text的字段并存放在memo组件中
- 第一次写DLL,不知道错在哪,找了好久也没找到
线程在CREATE时会自动执行它的Execute,这个我知道(应该地球人都知道吧^_^)
不过Execute绝对是可以再调用的嘛,不要欺负我不懂~放在另个不停执行的线程里调用有啥问题?这是我不明白的地方。不过这个问题现在用其他办法解决了,但还是想知道,希望哪位能告诉小妹我一下,谢谢了