发信人: swordman007@GZ()
整理人: teleme(2001-03-29 21:55:54), 站内信件
|
标 题: Re: 谁能举一个关于synchronize()详细一点的例子,急切盼望!!! 发信站: 网易虚拟社区 (Mon Sep 25 21:14:40 2000), 站内信件
【 在 zgl (古云) 的大作中提到: 】
: 谁能举一个关于synchronize()详细一点的例子,急切盼望!!!
: 多谢!!!
procedure TTestThread.GiveAnswer;
begin
TTestThread.Edit1.Text := InttoStr(Answer);
end;
procedure TTestThread.Execute;
var
I: Integer;
begin
FreeOnTerminate := True;
for I := 1 to 2000000 do
begin
if Terminated then Break;
Inc(Answer, Round(Abs(Sin(Sqrt(I)))));
Synchronize(GiveAnswer);
end;
end;
-- 宝剑锋从磨砺出,梅花香自苦寒来!
/|
O******=+=+=+=+=+=+=+=+=+=+=+>
\|
swordman
※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.104.123.3]
|
|