|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Потоки не доходят до конца
Все привет.
Столкнулся с такой проблемой что потоки не доходят до конца. Сам класс потока: Код:
Type tnew = class(TThread) private login : string; pass: string; rez: integer; public curacc, curproxy: integer; http: thttpsend; html: tstringlist; data: tstringstream; procedure sync; protected procedure Execute; Override; end; Кнопка старт: Код:
procedure TForm14.sButton3Click(Sender: TObject); begin Acc:=-1; Work:=true; for Thread:=0 to sSpinEdit1.Value do begin tnew.Create(false); end; end; Ну и сама процедура: Код:
procedure tnew.Execute; begin while work do begin CS.Enter; Inc(Acc); if Acc<Accounts.Count then CurAcc:=Acc else Work:=false; Inc(Proxy); if Proxy=Prox.Count then Proxy:=0; CurProxy:=Proxy; CS.Leave; if work then begin Последний раз редактировалось M.A.D.M.A.N., 29.10.2013 в 18:54. |
#2
|
||||
|
||||
Пользуемся тегами [ code ]!
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
||||
|
||||
Цитата:
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |