简单问题(30分)

F

fu_xiang_yu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-14

• #1

threads:array[1..n] of tathread;
procedure tathread.execute;
begin
/////
end;

问题是，在execute执行中我想知道这个过程是
哪个threads的，该怎么办?

 

K

kokusan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-15

• #2

再thread中加入一各整形两记住他。在Create中田如即可，再execute中查询整形两

 

F

fu_xiang_yu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-15

• #3

这位仁兄，你说的我看不太懂，可否
写几行马?

 

K

kokusan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-15

• #4

type TMyThread = class(TThread)
private
index: integer;
protected
procedure Execute;
override;
public
constructor Create(CreateSuspended: Boolean;
i: integer);
end;
...
//创建时令i等于的i
constructor TMyThread.Create(CreateSuspended: Boolean;
i: integer);
begin
index := i;
inherited Create(CreateSuspended);
end;

procedure TMyThread.Execute;
begin
引用i即知是哪个
end;

 

F

fu_xiang_yu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-16

• #5

谢

 

F

fu_xiang_yu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-16

• #6

接受答案了.