HiAsm

Ответов: 3889

Рейтинг: 362

#1: 2012-02-14 09:54:37 ЛС | профиль | цитата

login,
1. объявляем в приватной секции: thrd:PThread
2. При создании потока для Free Pascal нужно делать

thrd := NewThreadForFPC

2.1 Для другого компилятора

thrd := NewThread

2.2 Указываем какую функцию будем исполнять в потоке:

thrd.OnExecute := ИмяФункции

2.3 Включаем самоуничтожение потока после отработки:

thrd.AutoFree := true

2.4 Запускаем поток на исполнение:

thrd.Resume

карма: 1

Голосовали: login