这个线程传递参数为什么不成功？(20分)

K

kocus

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-03

• #1

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
threadid:dword;
begin
CreateThread(nil,0,@tform1.threadfunc,label1,0,threadid);
end;

function tform1.ThreadFunc(var l:Tlabel):boolean;
begin
while strtoint(l.Caption)<10000do
l.Caption:=inttostr(strtoint(l.Caption)+1);
end;

运行后 他说非法访问0xfffffffff,说明label1没有传到l上
为什么会这样啊？

 

B

buff

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-05

• #2

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
threadid:dword;
begin
CreateThread(nil,0,@tform1.threadfunc,Form1,0,threadid);
end;

function tform1.ThreadFunc(var l:TForm1):boolean;
begin
while strtoint(l.label1.Caption)<10000do
l.label1.Caption:=inttostr(strtoint(l.label1.Caption)+1);
end;

这样测试一下！

 

K

kocus

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-05

• #3

不行

 

W

weiwei81123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-05

• #4

function ThreadFunc(l:Tlabel):boolean;stdcall;
begin
while strtoint(l.Caption)<10000do
l.Caption:=inttostr(strtoint(l.Caption)+1);
end;

 

J

jerry529

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-05

• #5

function ThreadFunc(var l:TForm1):boolean;
begin
while strtoint(l.label1.Caption)<10000do
l.label1.Caption:=inttostr(strtoint(l.label1.Caption)+1);
end;

CreateThread(nil,0,threadfunc,Form1,0,threadid);
线程函数单独出来。

 

K

kocus

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-28

• #6

接受答案了.