[Помогите!] Условие запуска потоков

[ncdos]

delete/

[Dinmaite]

Я не совсем тебя понимаю, если у тебя уже посчитано количество записей в файле, для чего их считать еще раз?

Но всё по порядку.

for Thread:=1 to StrToInt(SpinEdit1.Text) do
 TNewThread.Create(False);
 Thread:=StrToInt(SpinEdit1.Text);

Оранжевое - бред, при каждой итерации вызывать StrToInt это мерзко. И не нужно говорить что современные процессоры и не с таким справятся.

Красное, вообще непонятно что такое.

Да и вообще не ясно для почему ты используешь цикл for.


А ты хотел что-то вроде такого условия

  var
    MaxThreadCount : integer;
  begin

  ............................................................

    MaxThreadCount := StrToInt(SpinEdit1.Text)  
    if akk.count < MaxThreadCount then
      MaxThreadCount = akk.count;

?

[VeTaL_UA]

MaxThread:=StrToInt(SpinEdit1.Text);
Thread:=1;
Count:=Akk.Count;
 while (Thread-1<>Count) and (MaxThread>=Thread) do
  begin
  TNewThread.Create(False);
  inc(Thread);
  end;
end;

[VeTaL_UA]

ncdos, сори, бред написал, голова не варит. Обновил предыдущий пост, так будет работать.