Скачать: CL | DM;

Зависание TThreadList   Найти похожие ветки 

← →
Bes ©   (2005-02-21 03:12) [0]

допутим

есть запись

TThreadRec=record
ThreadName:string[10];
ThreadFile:string[255];
Thread:TObject;
end;
PThreadRec=^TThreadRec;

...

var
ThreadList:TThreadList;

так вот, при создании какого-либо потока, создаю запись, вношу параметры и добавляю его в ThreadList.

Так же в программе есть форма со списком TListBox, в который  надо поместить имена всех потоков.

делаю...

ListBox1.Clear;
try
for i:=0 to ThreadList.LockList.count-1 do
Listbox1.items.add(PThreadRec(ThreadList.LockList.Items[i])^.ThreadName);
finally
ThreadList.UnLockList;
end;


...данное деяние вызывает зависание программы (причем конкретное)... при переходе на TList - все в ажуре, летает и прыгает...

Мастера, так в чем проблема? Я понимаю что TList плохо использовать с потоками, но почему же присходить зависание?

Благодарствую!

---

← →
Юрий Зотов ©   (2005-02-21 05:37) [1]

Посчитайте, сколько раз вызывается LockList и скажите - зачем?

Попробуйте так:

ListBox1.Clear;
with ThreadList, LockList do
try
 for i := 0 to Count - 1 do
   Listbox1.Items.Add(PThreadRec(Items[i])^.ThreadName)
finally
 UnlockList
end;

Если причина только в этом, то должно заработать.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.034 c