中国开发网: 论坛: 程序员情感CBD: 贴子 84303
JoJo
看得痛苦啊。。。
function TForm1.ExecThread(tmpA,tmpB:integer):integer;
var
yw : pyw;
fyw: tyw;
begin
fyw := tyw.Create;
yw := @fyw;
fyw.TmpIntA := 1;
fyw.TmpIntB := 2;
if GetSumAB(yw) = 0 then //这里GetSumAB(yw)是一个函数

//GetSumAB既然创建线程并运行,怎么可能立即返回结果?
showmessage(IntToStr(yw.TmpIntC));
end;

function TForm1.GetSumAB(Tmpyw:pyw):integer;
begin
//这里创建一个线程,在线程中执行fyw.TmpIntA和fyw.TmpIntB的和,然后赋给fyw.TmpIntC

//这个函数要达到这个功能就必须等线程执行完毕。
end;

相关信息:


欢迎光临本社区,您还没有登录,不能发贴子。请在 这里登录