Иллюстрированный самоучитель по Kylix


Листинг 14 3 Проверка прекращения работы потока



Листинг 14.3.Проверка прекращения работы потока

procedure TMyThread.Execute; begin
while not Terminated do
{выполнять какие-либо задачи}; end;

Пример создания многопоточного приложения в Kylix

Теперь настало время создания простого многопоточного приложения.

Мы создадим приложение, которое состоит из трех потоков (главного CLX-потока и двух потоков — потомков класса TThread). Для начала запустим Kylix и выберем в его главном меню пункт File/New Application, после чего разместим на главной форме приложения Form1 поле для редактирования Edit1, индикатор хода выполнения работы ProgressBar1 и системный таймер Timer1. В результате должна получиться форма, похожая на представленную на Рисунок 14.2.

Теперь добавим новый объект потока через пункт главного меню Kylix File/New/Thread Object. Введем имя для нового потомка класса TThread, например TMyThread1. Kylix автоматически добавит модуль Unit2 в наше приложение. В описание объекта TMyThread1 добавим раздел public, в котором опишем глобальную переменную count.



Начало Назад Вперед