Циклы for в thread

[noveek]

Скажите можно ли использовать дополнительно циклы for в многопоточных приложениях потому что я получаю зависание потоков через некоторое время (

структура кода

procedure th.Execute;
begin
while work do begin
  cs.Enter;

  cs.Leave;
if work then begin
Create
...
...
for i:= downto 1 do begin
//инициализирую весь текст
for j:=ishem.Count-1 downto 0 do 
//Ищу совпадения из списка в этом тексте и если нашёл сохраняю
if Pos('chtoto', gdeto.Text)>0 then begin
.Savetofile
end;
end;
freeandnil(1);
freeandnil(2);
freeandnil(3);
Synchronize(sync);
end;
end;

______________________
Форматируйте код и используйте тег [CODE] (кнопка [CODE] в форме сообщения) при вставке кода на форум. Подробнее в FAQ

[Аватар]

если ishem, gdeto и прочее что-то типа объекта на форме, то проблемы могут быть из-за отсутствия синхронизации с vcl

[noveek]

Ну я догадывался а как сделать то путёво ? Еслив отдельной процедуре то не вариант потому что нужный объект создаётся и уничтожается в потоке с которого я получаю текст в котором ищу

[Аватар]

Не обращаться к ним из Execute

[noveek]

Ты имеешь ввиду так ?

procedure th.Execute;
begin
...
Synchronize(fromfor)
end;
end;

procedure th.fromfor;
for i:= downto 1 do begin
//инициализирую весь текст
for j:=ishem.Count-1 downto 0 do 
//Ищу совпадения из списка в этом тексте и если нашёл сохраняю
if Pos('chtoto', gdeto.Text)>0 then begin
.Savetofile

Freeandnil(1)
Freeandnil(2)
Freeandnil(3)
Synchronize(sync);
end;
end;

[Аватар]

Угу. Только если большинство действий будет выполняться в Synchronize зачем поток нужен?

[noveek]

К сожалению не помогло даже хуже стало ещё и форма стала подвисать (

[p51x]

Ну так, естественно, то форму переодически дергали, то теперь вы фризите на весь цикл.

[noveek]

Как сделать то помогите пжл

[p51x]

Меняйте логику потока. Передавайте ему строки где и что искать. Запись в файл может быть длительной операцией, тем более в цикле - делайте асинхронно или в нвом потоке, или потом.