Ну вот таким образом через некоторое время выскакивает недостаточно памяти
Код:
T1:=TT1.Create(true); //создание 1 потока
T1.FreeOnTerminate:=false;
T1.Priority:=TpNormal;
T2:=TT1.Create(true); //создание 2 потока
T2.FreeOnTerminate:=false;
T2.Priority:=TpNormal;
цикл начинается
T1.Resume;
T2.Resume;
s:=T1.WaitFor;
s:=T2.WaitFor;
T1:=TT1.Create(true);
T2:=TT1.Create(true);
lmikle: последнее китайское предупреждение. Надо тегами пользоваться...
...какоето действие
цикл заканчивается
А если после waitfor удалить их(Free), то не выдает...
Это еще связанно с тем, что я указал FreeOnTerminate:=false; - это для того, чтобы работала ф-ция waitfor....