Здравствуйте мастера Delphi!!! Есть процедура GlobalRaschet. Она долго выполняется, если ее вызвать (там работа с массивами). Если процедура вызывается с потоком формы, то она выполнится за 5 минут, но вот если процедуру вызвать в новом потоке, то выполнится она намного медленнее, даже примерно за 15-20 минут! Вопрос такой: с чем это может быть связано и как это устранить? Т.е. мне необходимо, наверное, увеличить приоритет этого потока или еще что-нибудь. И вообще правильно я создал поток? Уважаемые мастера Delphi помогите мне пожалуйста разобраться в чем дело. Спасибо заранее!

Код

unit Result; interface uses ... type   TResultForm = class(TForm) ...   private   public   end; type   TMyThread = class(TThread)   protected     procedure Execute; override;   end; var   ResultForm: TResultForm; ... procedure GlobalRaschet; var ... begin .... end; procedure TResultForm.Button1Click(Sender: TObject); var   MyThread: TMyThread; begin   MyThread := TMyThread.Create(False); end; procedure TMyThread.Execute; begin   GlobalRaschet; end; end.

Вообще конечно интересно почему так медленнит :), но попробуй приоритет потоку накрутить. А по приведенному коду всё правильно.

А как приоритет выше поставить?

Надеюсь в GlobalRaschet нет обращений к VCL. И тем более там не должно быть Application.ProcessMessage.
А вообще, запуск потока делашь правильно, но здесь трудно ошибиться .

MyPotok.Priority:=...
tpIdle The thread executes only when the system is idle. The system will not interrupt other threads to execute a thread with tpIdle priority.
tpLowest The thread's priority is two points below normal.
tpLower The thread's priority is one point below normal.
tpNormal The thread has normal priority.
tpHigher The thread's priority is one point above normal.
tpHighest The thread's priority is two points above normal.
tpTimeCritical The thread gets highest priority.

Надеюсь в GlobalRaschet нет обращений к VCL... А что это значит?

Цитата(Grol @ 29.5.2005, 19:57)

Надеюсь в GlobalRaschet нет обращений к VCL... А что это значит?

Типа,

Код

MainForm.ListBox.Items.Add('asdasd');

т.е. обращений к визуальным компонентам

Простите за тупой вопрос ...
А где в приведенном выше коде поток ЗАПУСКАЕТСЯ. Как создаётся вижу .....
А где от запускается ???

Цитата

Типа, код Pascal/Delphi 1: MainForm.ListBox.Items.Add('asdasd'); т.е. обращений к визуальным компонентам

А для этого нужно использовать synchronyze (может опшибся в написании), насколько мне помниться ...

Это сообщение отредактировал(а) Marriage - 29.5.2005, 20:31

Цитата(Marriage @ 29.5.2005, 20:27)

А где от запускается ???

Код

MyThread := TMyThread.Create(False);

Цитата

constructor Create(CreateSuspended: Boolean); Description Call Create to create a thread in an application. If CreateSuspended is False, Execute is called immediately. If CreateSuspended is True, Execute won’t be called until after Resume is called.

Dynamic
Спасибо

А подскажите тогда, как остановить этот поток, т.е. поток запушен и производятся расчеты в процедуре, как в этом случае остановить поток?

Thread.Suspend

Цитата(December @ 1.6.2005, 19:17)

Thread.Suspend

Suspend приостанавливает поток, а не останавливает его. Т.е. поток конечно останавливается, но не удаляется из системы, а готов в любой момент продолжить выполнение. Естественно, его ресурсы при этом не освобождаются.
А вообще, всем очень рекомендую почитать замечательную статью о потоках: http://mbo88.narod.ru/ToC.html

Цитата

Suspend приостанавливает поток, а не останавливает его.

Мне показалось, что именно это и нужно
За ссылку -+- спасибо!