Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.01;
Скачать: 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 вся ветка

Текущий архив: 2002.07.01;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
1-980
ЛенаК
2002-06-17 09:02
2002.07.01
Печать графика в масштабе


3-876
Rail
2002-06-06 09:52
2002.07.01
Fox Pro


14-1170
sergey32
2002-05-30 14:28
2002.07.01
Вместо того, чтобы болтать


1-1098
Sin
2002-06-18 21:42
2002.07.01
Pointers, работа с ними.


1-973
Antoniz
2002-06-18 10:07
2002.07.01
Как к ячейкам TStringGrid привязать TCombobox