⇢ RK
Roman Kaplya
Заплачу 50 р. на телефон - всего лишь ответьте как в делфи сделать паузу в программе! Подождать пока выполниться код.
И начать через несколько секунд выполнять следующий. Естественно не загружая процессор и без использования компонентов.
Нашел что то. Может кому пригодиться procedure Delay(Value: Cardinal);
var
F, N: Cardinal;
begin
N := 0;
while N <= (Value div 10) do
begin
SleepEx(1, True);
Application.ProcessMessages;
Inc(N);
end;
F := GetTickCount;
repeat
Application.ProcessMessages;
N := GetTickCount;
until (N - F >= (Value mod 10)) or (N < F);
end;
Хрень конечно же. Но хоть что то.
