小编Ada*_*dam的帖子

我的项目包含两个执行不同任务的过程,我执行一个计时器中的每个线程.

我的问题是,当我运行项目时,计时器启动.线程不能正常工作.

为什么？

而且,我可以在同一个项目中使用两个或更多线程吗？

注意:我真的想使用线程,我需要一个带线程的解决方案.

这是我没有线程的代码.

procedure TForm1.Timer1Timer(Sender: TObject);
var
i : integer;
begin
for i := 0 to 50 do
  begin
  Memo1.Lines.Add(IntToStr(i));
  sleep(500);
  end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
k : integer;
begin
for k := 0 to 50 do
  begin
  Memo2.Lines.Add(IntToStr(k));
  sleep(500);
  end;
end;

end.

有线程:

type
TThread_Timer2 = class(TThread)
protected
  procedure Execute; override;
end;

type
TThread_Timer3 = class(TThread)
protected
  procedure Execute; override;
end;

procedure TThread_Timer2.Execute;
var
i : integer;
begin
for i := 0 to 50 do …