city

数字城市

21 成员272 主题84 回复0 张照片

线程如何传参数?

如

如风逝去

2000-08-05 14:22

procedure TForm1.Button1Click(Sender: TObject);
var i:thandle;
j:dword;
x:^string;
procedure myt(s:string);
begin
showmessage(s);
end;

begin
x^:='aaa';
i:=createthread(nil,0,@myt,x,0,j);

end;
请问哪错了?
想给myt传参数.

如

如风逝去

2000-08-05 22:22

RE!:

procedure TForm1.Button1Click(Sender: TObject);
var i:thandle;
j:dword;
x:pchar;
function myt(s:pchar):LongInt;stdcall;
begin
showmessage(s);
end;

begin
new(x);
x:='aaa';
i:=createthread(nil,0,@myt,x,0,j);

end;

如

如风逝去

2000-08-05 22:23

也可以以结构方式传递.
内幕中有介绍

如

如风逝去

2000-08-05 22:23

原来忘了new，~

登录后回复。