精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>其他>>Re: 谁能举一个关于synchronize()详细一点的例子,急切盼望!!!

主题:Re: 谁能举一个关于synchronize()详细一点的例子,急切盼望!!!
发信人: 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]

[关闭][返回]