Создание нескольких потоков

[iKarma]

Суть проблемы таковая - мне нужно создать несколько потоков (их количество задаётся в командной строке) и вывести созданным потоком его текущий порядковый номер.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Classes;
 
type
  TMyThread = class(TThread)
    private
    protected
    procedure Execute; override;
end;
 
var
  MyThread: TMyThread;
  ThreadNumber, i: integer;
 
procedure TMyThread.Execute; //опишем код, который будет выполняться в потоке
begin
  Writeln('I am thread number ', i);
end;
 
begin
  write('Enter number of threads = ');
  read(ThreadNumber);
  for i := 1 to ThreadNumber do
  begin
    MyThread := TMyThread.Create(False); //создаём экземпляр потока //False означает, что поток запускается сам сразу после создания
    MyThread.Priority := tpNormal; //укажем параметры потока, например, приоритет
    MyThread.FreeOnTerminate := True;  //после завершения кода поток завершится автоматически
  end;
  Readln;
  Readln;
end.

Вроде потоки создаются, но вот с выводом порядкового номера где-то я ошибся. Помогите пожалуйста)

[Человек_Борща]

Проблема у вас далекоо не с порядковым номером...
Поток это отдельная программа, и она не ждёт чего-либо от той программы которая её создала.
Сразу выполняет execute. Не следует об этом забывать.

Куда проще потоку передать его номер.
Вот как надо:

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Classes;
 
type
  TMyThread = class(TThread)
    private
    fID:Integer; //переменная-свойства
    procedure SetID(Value:Integer); //присвоение переменной-свойства значения
    function GetID:Integer; //возврат значения из переменной-свойства
    protected
    procedure Execute; override;
    public
    //Само свойство(Почему в public, думаю, обьяснять не надо(Но подробнее у справки делфи))
    property ThreadID:Integer read GetID write SetID;
end;
 
var
  MyThread: TMyThread;
  ThreadNumber, i: integer;
 
procedure TMyThread.Execute;
begin
  Writeln('I am thread number ', ThreadID);
end;

{
Процедура присвоения значения в переменную свойства
}
procedure TMyThread.SetID(Value:Integer);
begin
  fID:=Value;
end;

{
функция возврата значения свойства из переменной свойства
}

Function TMyThread.GetID:string;
begin
  Result:=fID;
end;

begin
  write('Enter number of threads = ');
  read(ThreadNumber);
  for i := 1 to ThreadNumber do
  begin
    MyThread := TMyThread.Create(True);
    MyThread.Priority := tpNormal; 
    MyThread.FreeOnTerminate := True;  
    MyThread.ThreadID:=i;
    myThread.Resume;
  end;
  Readln;
end.

красным отметил, то что я изменил/добавил.

[iKarma]

Function TMyThread.GetID:string;

я так понимаю должно быть:

function GetID:Integer;

MyThread := TMyThread.Create(True);

это значит, что поток не запускается сразу после создания?

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

[Человек_Борща]

1. да
2. Правильно, паоток создаётся но не пускаеся в работу.
3. Это от вас зависит. Мои надбавки на это не влияют=)

[iKarma]

MyThread := TMyThread.Create(True);

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

[Человек_Борща]

    //Создаём поток "на паузе".
    MyThread := TMyThread.Create(True);
    //устанавливаем ему приоритет
    MyThread.Priority := tpNormal; 
//Разрешаем убить себя по завершению работы.
    MyThread.FreeOnTerminate := True;  
//передаём параметр
    MyThread.ThreadID:=i;
//Даём команду "продолжить работу"
    myThread.Resume;

Я держусь того, что нужно создать обькт, задать ему параметры(нужные мне) и только затем стартовать.
Иначе поток может отработать до того, как основной VCL закончить задавать параметры эту потоку.

[Johnson]

Я конечно, как обычно, со своим уставом в ваш монастырь...

Массив потоков реализовать не? Поток с точки зрения компилятора - что? Да, объект.
Следовательно, можно эти самые объекты и запихоть хотя бы в тот же TObjectList
И работать с ними как с элементами массива.

[Человек_Борща]

Очень не плохой вариант. Я так реализовал работу в своём ПО.
Но вопрос о запуске нескольких потоков подряд а не об организации средства управления множеством.

[Johnson]

Ну раз человеку нужно вывести его текущий порядковый номер - то это не с проста
Для чего нужен текущий номер? Наверное для того, чтоб обращаться к нему...

[iKarma]

Johnson и Человек_Борща, спасибо за идею про массив потоков =)