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