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

Вопрос по потокам   Найти похожие ветки 

← →
XShura   (2002-06-18 14:22) [0]

Всем привет! Возник вопрос по синхронизации потоков :
Имеем главную форму, где расположен TListView :

TfmGlav = class(TForm)
List1: TListView;
Image1: TImageList; // иконки для ListView
...
end;

и есть вторичный поток :

TTh = class(TThread)
private
{ Private declarations }
fList:TListView;
protected
procedure Execute; override;
public
constructor Create(List:TListView);
destructor Destroy; override;
end;

implementation

constructor TTh.Create(List:TListView);
begin
inherited create(true);
fListGr:=ListGr; // присваиваем FList указатель на TListView главной формы
resume;
end;

procedure TTh.Execute;
begin
repeat
sleep(10);
fList.Items[0].ImageIndex:=3; // обращение к свойству List1.ImageIndex первичного потока
sleep(10);
fList.Items[0].ImageIndex:=0;
sleep(10);
until Terminated;
end;

вопрос : насколько корректен код в методе Execute и надо ли
использовать метод Synchronize ?
И еще, если мой код некорректен, то как мне заставить программу "глюкнуть"
в этом методе, так как данный код работает без всяких коллизий.

---

← →
_Antiox_ ©   (2002-06-18 14:33) [1]

Синхронизировать надо конечно!
Коллизии возникнут, если у тебя несколько потоков будут работать с одним и тем же ресурсом без синхронизации.
Т.к. в коде присутствуют sleep() - это уменьшает вероятность коллизии, но это не выход.
Дело в том, что даже убрав все sleep-ы и запустив множество потоков программа может и не "глюкнуть" явно (т.е. не будет AV и т.д.), но логика программы может быть нарушена.

---

← →
XShura   (2002-06-18 14:50) [2]

Спасибо что откликнулся!
Из твоего ответа я понял, что нет никаких средств отследить такие коллизии кроме как ждать и ждать ....

---

← →
[aka]   (2002-06-18 15:33) [3]

Зачем ждать, создай десять таких струн и сразу увидишь как весело будет с ListView ;)
Хотя зависит от логики - если остальному коду неважно, какая там иконка, то юзверю и подавно :)

---

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

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



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