D
delphixxx
Unregistered / Unconfirmed
GUEST, unregistred user!
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传参数.
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传参数.
char;