Остановка потока

[wowepag]

Доброго дня!

Сам поток:

type
  TthreadLoad= class(TThread)
  private
...
  protected
    procedure Execute; override;
  end;

procedure TthreadLoad.Execute;
begin
...
  try
    while not terminated do
    begin
....
    end;
  finally
...
  end;
end;

...
var
threadLoad:TthreadLoad; 
...

Старт:

  for I := 1 to 100 do
  begin
    threadLoad:= TthreadLoad.Create(true);
    threadLoad.start;
  end;

Стоп:

  threadLoad.Terminate;

Что делаю не так?

[Alex11223]

Сообщение от wowepag

Что делаю не так?

1. Используете странный (не общепринятый) регистр в имени класса (TthreadLoad вместо TThreadLoad). Ну и имена переменных тоже (смешивание lowerCase и UpperCase), и пробелы вокруг :=, =, после :.
   Лучше стараться придерживаться какого-то общепринятого соглашения, в Дельфи это вроде бы это: http://edn.embarcadero.com/article/10280
2. В цикле вы создаете 100 потоков (экземпляров того класса), но как я понял указатели на 99 из них никуда не сохраняете. То есть потом Terminate вызываете только у последнего экземпляра.
   Наверно вы не понимаете как работают классы и их экземпляры. Все эти данные (например свойство Terminated унаследованное из базового класса TThread) свои у каждого экземпляра, а не общие для всех.

[wowepag]

Сообщение от Alex11223

указатели на 99 из них никуда не сохраняете. То есть потом Terminate вызываете только у последнего экземпляра.

да, так и есть. Как их можно сохранить?

[Alex11223]

Использовать массив, список (TObjectList, ..., generic если Дельфи 2009+) и т.п.

[wowepag]

Сообщение от Alex11223

Использовать массив, список (TObjectList, ..., generic если Дельфи 2009+) и т.п.

а что легче и предпочтительней?

[Alex11223]

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

[wowepag]

Глобальные переменные

var
  threadLoad:TthreadLoad; 
  ListThread: TObjectList;

FormCreate

  ListThread := TObjectList.Create;

Старт

  for I := 1 to 100 do
  begin
    threadLoad := TthreadLoad.Create(true);
    threadLoad.start;
    ListThread.Add(threadLoad);
  end;

Стоп

  for I := 0 to ListThread.Count do
  begin
    (ListThread.Items[i] as TThread).Terminate;
  end;

Вроде бы завершает потоки, но когда стоп жму, получаю ошибку: "List index out of bounds (100)". Что делаю не правильно?

[Alex11223]

Так если 100 элементов, то в нем индексы 0-99, а не 0-100.