Потоки!

← →
WondeRu © (2004-04-28 10:46) [0]

Привет!

Есть 2 потока: один отображает данные, а другой изменяет их!
Обображаются объекты из списка List1.

Отображение:
for i := 0 to List1.Count - 1 do
TSomeObject(List1[i]).Draw;

Изменение:
for i := List1.Count - 1 downto 0 do
if TSomeObject(List1[i]).X > 0 then
begin
TSomeObject(List1[i]).Free;
List1.Delete(i);
end;

Но иногда возникает ситуация, когда элемент удален, а отображение пытается к нему обратиться!

Как посоветуете избежать этого?

Спасибо!

← →
ASMiD © (2004-04-28 10:56) [1]

В приведенном примере именно так и должно получиться т. к.
после Delete(i) i может быть больше List1.Count - 1
Как отсюда вылезать - решай сам.

← →
Ihor Osov'yak © (2004-04-28 10:58) [2]

Почитать о синхронизации потоков, например, того же Рихтера, если не изменяет память - глава 10 (3 редакция).

Кроме того, если пишем на D с использованием VCL (а вероятнее всего, что так) - подумать о том, надо ли "отображать" в отдельном потоке. Если нет знаний, опыта для самостоятельного размышления на эту тему - поверте на слово - не надо.

← →
evvcom © (2004-04-28 11:00) [3]

> после Delete(i) i может быть больше List1.Count - 1

Ну и что? Цикл используется с downto.

2WondeRu: используй синхронизирующие критические секции.

← →
panov © (2004-04-28 11:01) [4]

Кода потоков не видно.

← →
MBo © (2004-04-28 11:04) [5]

а также TThreadList

← →
WondeRu © (2004-04-28 11:22) [6]

2Ihor Osov"yak © (28.04.04 10:58) [2]
VCL не пользую, отображает OpenGL

>Кода потоков не видно.
procedure TThr1.Execute.. begin repeat sleep(100); for i := List1.Count - 1 downto 0 do if TSomeObject(List1[i]).X > 0 then begin TSomeObject(List1[i]).Free; List1.Delete(i); end; until Not Terminated; end;
а отображение по таймеру

>а также TThreadList
????

Попробуй критические секции использовать.

попробую делфовский пример, авось заработает путево!

with MyThreadList.LockList do
try
for X := 0 to Count-1 do
Something(Items[X]);
finally
MyThreadList.UnlockList;
end;

>а также TThreadList
>????
F1?

Потоки! Найти похожие ветки