我定义了一个线程对象如下，能否同时启运ABC的多个副本？(50分)

L

lkdbdlkq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-26

• #1

Tarrival = class(TThread)
private
procedure abc(n:integer);
protected
procedure Execute;override;
public
constructor Create;
virtual;
end;

我是指启动运行一个abc(0) 后，如何再同时启动一个线程abc(1)?

 

W

wlm_8888

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-26

• #2

你申请两个对象
var
arrival_1,arrival_2:Tarrival;

 

地

地质灾害

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-26

• #3

TThread的构造函数有一个CreateSuspended参数，表示VCL线程对象创建后，线程是否挂起。你把它藏起来了。不知道你的Create;virtual里写的什么。

 

G

gkrong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-27

• #4

再创建一个线程不就行了。

 

P

Passion

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-09-27

• #5

你怎么启动运行的abc(0)，就怎么启动运行abc(1);

 

D

delphihou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-10-10

• #6

是的,你创建一个A,再创建一个B就行了.再创建一个N也行,哈哈