Нужно оптимизировать procedure Delay - Общие вопросы Delphi

hottabych23 · 24.04.2010, 22:29

Моя программа в которой я использую Delay в этом мне помог Terran
сильно

перегружает процессор 2.8Mhz

http://programmersforum.ru/showthread.php?p=508390

посмотрите что можно сделать?

RAZOR3 · 25.04.2010, 02:04

попробуй вот так:

Код:

Procedure DelaySt(Ms: Longint);
Var
TheTime: LongInt;
Begin
TheTime:=GetTickCount + Ms;
While GetTickCount < TheTime Do begin
  Sleep(1);
Application.ProcessMessages;
end;
end;

W0LF · 25.04.2010, 11:35

Скажу, что можно зделать... Учить работу потоков!
Или вы думаете, что процедурка в несколько строк спасет вас от галюнов? Вы наивны..

hottabych23 · 25.04.2010, 11:35

RAZOR3 спасибо это удивительно но сработало. Я не верил пока не попробовал. +

24.04.2010, 22:29	#1
hottabych23 Регистрация: 08.10.2009 Сообщений: 9	Нужно оптимизировать procedure Delay Моя программа в которой я использую Delay в этом мне помог Terran сильно перегружает процессор 2.8Mhz http://programmersforum.ru/showthread.php?p=508390 посмотрите что можно сделать?

25.04.2010, 02:04	#2
RAZOR3 Пользователь Регистрация: 25.04.2010 Сообщений: 38	попробуй вот так: Код: `Procedure DelaySt(Ms: Longint); Var TheTime: LongInt; Begin TheTime:=GetTickCount + Ms; While GetTickCount < TheTime Do begin Sleep(1); Application.ProcessMessages; end; end;`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
delay в delphi	trafbite	Помощь студентам	24	17.04.2010 22:29
нужно оптимизировать код	adwaer	PHP	11	21.03.2010 02:20
Что нужно оптимизировать?	nemoomen	Microsoft Office Excel	13	27.02.2009 06:28
Проблема с delay.	TheWanderer	Общие вопросы C/C++	4	16.10.2008 12:11
delay	Jocker	Паскаль, Turbo Pascal, PascalABC.NET	4	25.10.2007 17:56

25.04.2010, 11:35	#3
W0LF Форумчанин Регистрация: 28.03.2008 Сообщений: 940	Скажу, что можно зделать... Учить работу потоков! Или вы думаете, что процедурка в несколько строк спасет вас от галюнов? Вы наивны..