Вопрос по TThread

[Федеор]

Добрый день!
Пытаюсь для ускорения вычислений независимые друг от друга расчеты произвести в разных потока, рассчитывая на выигрыш за счет многоядерности процессора. Вот что я написал:

TMyThread1 = class(TThread)
 private
   { Private declarations }
 protected
    nI:integer;
   procedure Execute; override;
 end;

TMyThread2 = class(TThread)
 private
   { Private declarations }
 protected
    nI:integer;
   procedure Execute; override;
 end;

procedure TMyThread1.Execute;
 begin
   U[ni].Wx0 := U[ni].Fx / U[ni].m1;
   U[ni].Vx := U[ni].Vx + dt24*(55*U[ni].Wx0 - 59*U[ni].Wx1 + 37*U[ni].Wx2 - 9*U[ni].Wx3);
   U[ni].x := U[ni].x + U[ni].Vx*dt + dt2_360*(323*U[ni].Wx0 - 264*U[ni].Wx1 + 159*U[ni].Wx2 - 38*U[ni].Wx3);

 end;

 procedure TMyThread2.Execute;
 begin
   U[ni].Wy0 := U[ni].Fy / U[ni].m1;
   U[ni].Vy := U[ni].Vy + dt24*(55*U[ni].Wy0 - 59*U[ni].Wy1 + 37*U[ni].Wy2 - 9*U[ni].Wy3);
   U[ni].y := U[ni].y + U[ni].Vy*dt + dt2_360*(323*U[ni].Wy0 - 264*U[ni].Wy1 + 159*U[ni].Wy2 - 38*U[ni].Wy3);
 end;

T1 := TMyThread1.Create(True);
T2 := TMyThread2.Create(True);

в нужны момент запускаю:
 begin
          if i=1 then T1.Resume;
          T1.nI :=i;
          T1.Execute;

          if i=1 then T2.Resume;
          T2.nI :=i;
          T2.Execute;
 end;

Будут ли в моем случае потоки выполняться параллельно?
Спасибо

[BOBAH13]

Думаю да, правда какой то запуск замысловатый.

[Пепел Феникса]

где создание потоков?
что за вызов Execute?(этот метод выполняет поток, вы его вообще вызывать не должны)
Resume поидее достаточно(если поток был создан через TThread.Create(True))

[Федеор]

После создания потока я его не сразу запускаю, т.к. не готовы некоторые исходные данные, необходимые для расчетов внутри потока.
Поэтому я сначала создаю приостановленный поток, получаю исходные данные, после чего я его возобновляю и запускаю Exeсute. Может быть я что-то неправильно понимаю?

Сообщение от Пепел Феникса

где создание потоков?
что за вызов Execute?(этот метод выполняет поток, вы его вообще вызывать не должны)
Resume поидее достаточно(если поток был создан через TThread.Create(True))

я сделал:

T1 := TMyThread1.Create(True);
T2 := TMyThread2.Create(True);

Без вызова T1.Execute почему-то поток не запускается.
UP
понял в чем дело:
мне необходимо, чтобы на каждой итерации расчета в уже запущенном потоке выполнялся код, описанный в Execute. Поэтому я его вручную поместил в итерационный цикл.

[Stilet]

мне необходимо, чтобы на каждой итерации расчета в уже запущенном потоке выполнялся код, описанный в Execute. Поэтому я его вручную поместил в итерационный цикл.

А потоки то тут зачем? Они выгоду не дают если ты в них поместил код, который выполняется быстро...
Может тебе нужно поместить цикл в потоки?

[Федеор]

понял, так мне и нужно сделать
и еще вопрос - у меня есть общий цикл с вложенными циклами
вложенные циклы я хочу выполнять в отдельных потоках
возможно ли создать поток для выполнения этого вложенного цикла только один раз? (чтобы на каждой итерации главного цикла не создавать/уничтожать потоки)

[Stilet]

М.м.м по-моему можно.
Создай один раз, а потом запускай его много раз, но...
Ты учти - если поток в цикле запустишь, то он не приостановит цикл, который пойдет на следующую итерацию.
Не стоит разрывать циклы так.