Советы по Delphi
Организация задержки II
| Procedure Delay (Seconds: Word); Var Later: TDateTime; Begin Later := Now + (Seconds / (24.0 * 60.0 * 60.0)); While Now < Later do Application.ProcessMessages; end; |
| Procedure Delay (Seconds: Word); Var Later: TDateTime; Begin Later := Now + (Seconds / (24.0 * 60.0 * 60.0)); While Now < Later do Application.ProcessMessages; end; |