Листинг 14 4 Модуль первого потока

Листинг 14.4.Модуль первого потока

unit Unit2; interface
uses Classes;
type TMyThread1 = class(TThread)
private
{ Private declarations } protected procedure Execute; override;
public
count : integer; // Добавили переменную Count end;
implementation { TMyThread1 }
procedure TMyThread1.Execute; begin
while true do
begin
count:=random (maxint);
end; end;
end.

Теперь создадим второй объект потока, который должен заполнять индикатор хода работы ProgressBar1.

По аналогии с первым объектом потока при помощи главного меню Kylix создадим объект потока с именем TMyThread2. Во вновь добавленный модуль Unit3 включим глобальную переменную prcount, после чего в процедуре Execute объекта TMyThread2 запишем код, представленный в листинге 14.5, также зациклив его.

Содержание Назад Вперед