Передать число след. потоку

[brownb]

constructor TNewThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
end;

procedure TNewThread.Execute;
var
HTTP: TIdHTTP;
id:integer;
begin
  inherited;
while Work do
  begin
  CS.Enter;
CS.Leave;
   if Work then
      begin
      id:=id+1;
     HTTP:=TIdHTTP.create(nil); //Создаём HTTP
     HTTP.HandleRedirects:=false; //Запрещаем редирект
 begin
Rez:=1;
try
http.Get('http://site.com/+inttostr(id));

except

   dec(Thread);
end;

HTTP.Free;
Synchronize(Sync);
  end;
end;

  dec(Thread);
    end;
end;


procedure TNewThread.Sync;
begin
case Rez of
   1:begin
      Form1.Label9.Caption:=IntToStr(StrToInt(Form1.label9.Caption)+1);
    end;
    -1:begin
      Form1.Label2.Caption:=IntToStr(StrToInt(Form1.label2.Caption)+1);
     end;
 end;
end;

Проблема заключается в том что при старте (если указать 3 потока) то три потока сразу начинают работу с одной цифры
то есть
6027
6027
6027
6028
6029
6031
6031
6032
6033
6035
6035
6037
6037
6038
6039
6040
6042
6042

А потом по логике при запуске каждого потока нужно делать + 1 к ID
id:=id+1;

Но получается что числа дублируются!

Как можно отследить начало/заверщение потока и только потом передать след потоку id:=id+1;

Я не особо разбираюсь в программировании может кто подскажет как вообще это правельно сделать!За ранее благодарен!

[evg_m]

вар 1. создавать потоки СРАЗУ с нужными данными(числами)
написать свой конструктор

TMyThread =class(...)
private
 FmyID: integer;
public
  constructor Create(..., myID: integer);
end;
constructor TMyThread.Create(..., myID: integer);
  inherited Create(...);
  self.FMyID:=MyID;
end;

r1:=TMyThread.Create(..., 1);
r2:=TMyThread.Create(..., 10);
...

Вар.2 "научить" поток узнавать нужные данные(числа)
написать свое свойство-событие и реакцию на него.

TFuncGetMyID =function(sender: TMyThread) :integer of object;
TMyThread =class(...)
private
  FFuncGetMyID: 
public
  property OnGetMyID: TFuncGetMyID;
  procedure Execute; override;
end;
procedure TMyThread.Execute;
begin
...
  myworkID:= FFuncGetMyID(self); // ВЕЗДЕ где надо узнать новый ID
...
end;

var
   globalID: integer;

function TMyForm.RealGetID: intreger;
begin
  result:=globalID;
  Inc(globalID, 10);
end;


r1:=TMyThread.Create(...);
r1.OnGetMyID:=RealGetID;

while Work do
  begin

Work --есть глобальная переменная ?
да. конечно.
таким образом вы остановите ВСЕ свои потоки одновременно, вам это и надо ?
нет, хочу остановить только один.
для целей остановки отдельных потоков. существует признак Terminated для операций в потоке и процедура-метод terminate его установки извне

while not self.terminated do begin
...
end;

r1:=TmyThread.Create(...);
r2:=TmyThread.Create(...);

r2.terminate; // остановка потока извне

3.

    HTTP:=TIdHTTP.create(nil); //Создаём HTTP

если мы создаем(Create) что-то , то мы должны и удалить это (Free) после того как необходимость в нем исчезла
HTTP.Free;
и ровно столько раз сколько будем создавать.
создаем в цикле и удалять надо будет в ЭТОМ же цикле.

на самом деле его достаточно создать ОДИН раз ДО цикла.
и удалить в таком разе после цикла.

4.
"правильный" поток не знает кто его вызвал и как он будет отображать его результаты и ход выполнения.
Для всего этого у потока могут и должны быть разные свойства (значения текущего состояния) и события -извещения об изменениях этого состояния, которыми смогут воспользоваться любые внешние (и неизвестные потоку) объекты.

property myID: integer read FMyID;
property myrez: integer; read FmyRez;
property OnAfterReadHTTP: TNotfyEvent;

procedure TMyThread.Sync;
begin
 OnAfterReadHTTP(self);
end;

r1.OnAfterReadHTTP:=form1.DoAfterRead;

proceure TForm1.DoAfterRead(sender: TObject);
begin
  r:=sender as TMyThread; //нас известил вот этот поток
  z:=r.myRez;
  x:=r.myID; // и в данный момент его состояние вот такое
  self.Label9.... // а теперь что хотим то и делаем
  ...
end;

P.S.

для целей остановки отдельных потоков. ...

а для извещения об окончании работы потока OnTerminate
пример смотри DoAfterReadHTTP.

[NetSpace]

робко спрошу.
если я создавал потоки в цикле for i:=1 to 3 do,
то удалять надо в таком же цикле for i:=1 to 3 do или
в обратном for i:=3 downto 1 do?
просто один раз столкнулся, когда динамические переменные создавал, что выскакивала ошибка, пока не начал циклично удалять с конца списка...он удаляет переменную и сдвигает весь список на 1 позицию в начало. а потом когда доходит до несуществующего элемента - выдаёт ошибку... два дня убил, пока понял...

[evg_m]

просто один раз столкнулся, когда динамические переменные создавал

динамические массивы ?
и еще менял их размеры в цикле ?
https://programmersforum.ru/showpost...05&postcount=4

[NetSpace]

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