Циклы for в thread

[noveek]

Сообщение от p51x

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

Ты имеешь ввиду после синхронизации искать ? Если как то узнать что поток завис и делать Break; в for при этом потому что if terminated then Break; не выполняется

[p51x]

Нет. Вы то прочитали, что там написано? Не до или после синхронизации, а вместо нее - убирать ее. Где я писал про поток завис или брек?

[Pavia]

По вашему огрызку кода ничего нельзя понять.
Можно сказать только одно Synchronize вы используете как-то неправильно.
Самый простой способ. Кладёте на главную форму таймер. В таймера проверяете результат от ваших потоков и выводит его. При таком раскладе таймер будет работать в главном потоке.
Но ему нужно знать какие потоки живые. Для этого пред тем как разрушить поток вызываете Synchronize(selfDeleteThread) внутри которого удаляет свой поток из массива потоков.
Так как это код выполняется через синхронизацию, то он будет работать в главном потоке. Причём в промежутках когда таймер отработал. Чём добьётеся потоковой безопасности.
В таком алгоритме Synchronize вызывается всего один раз.

[noveek]

Приведите пжл пример не пойму я никак всё равно ничего путёвого с таймером не вышло

[northener]

Сообщение от noveek

Приведите пжл пример

Пример чего конкретно? Всей программы?

[noveek]

Сообщение от northener

Пример чего конкретно? Всей программы?

Зачем ? Пример того как должным образом работать с циклами for в многопоточном приложении

[p51x]

Как и в не мнопоточной, только с пониманием, что если надолго или часто будете дергать "блокировки" будут фризи и гонки.

[Pavia]

А может мы услжняем и ему нужно вызвать TParallel.For?
Как обезопасить переменные? Локальные переменные и параметры функций в защите не нуждаются так как располагаются в разных участках памяти. Поэтому обращения к ним не пересекается.
Общие переменные для потоков должны быть защищены. А также ввод и вывод его тоже надо обезопасить, так как VCL не безопасен, программист должен сам позаботиться об этом используя синхронизацию.

TInterlocked применяется для синхронизации по-данным.

Пример гонка процессов:

program Project1;
{$APPTYPE CONSOLE}
{$R *.res}
uses
  System.SysUtils, System.Threading, System.SyncObjs;

var
 HalfSum:Integer; // общая переменная
procedure ParallelSum(i:Integer);
begin
 HalfSum:=HalfSum+1;
//TInterlocked.Increment(HalfSum);
 Sleep(10);
end;
var j:Integer;
begin
  HalfSum:=0;
  TParallel.For(0, 100, ParallelSum);
  WriteLn(HalfSum);
end.

Выдает неправильный результат 93
изменяем на TInterlocked.Increment получаем правильную сумму 101

TParallel.For использует пул-потоков для автоматического создания и уничтожения потоков. Много потоков плохо сказывается на производительности. Мало тоже. Вот пул-потоков время от времени определяет производительности и создает недостающие потоки или уничтожает лишние потоки.

Каждая итерация цикла выполняется параллельно во-времени. В переменную I передаётся номер цикла.

P.S. Пример с таймером выложу попозже.

[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;
Break; если бы тут условие что выполняем Break только в случае зависания, а в остальных нет только как поймёшь то зависло или нет =( 
end;
end;
freeandnil(1);
freeandnil(2);
freeandnil(3);
Synchronize(sync);
end;
end;

Сообщение от Pavia

P.S. Пример с таймером выложу попозже.

Ты вообще не о том потоки я освобождаю freeonterminate

[p51x]

Может вы тему начнете читать? Вернул старый код с

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

и пишет, что ничего не поменялось...

Сообщение от noveek

Break; если бы тут условие что выполняем Break только в случае зависания, а в остальных нет только как поймёшь то зависло или нет =(

Если поток завис, то бесполезно внутри что-то делать, кроме смены логики.

Но вы ведь так и непоняли, что это за зависания и почему они происходят...