|
|
|
|
Одной строкой
Организация задержки 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;
|
|
|
|
|
|