Несколько потоков

[Adm]

Подскажите, плз, как сделать!
Есть модуль потока команд. В теле программы (в основном потоке) я хочу запустить 3 потока (с разными параметрами на входе), чтоб они работали параллельно. Как это реализовать?

[Никки]

Статья из справочника! Прочитай!!

[Никки]

А вообще тебе наверное надо 3 потока...

[Adm]

Сообщение от Никки

А вообще тебе наверное надо 3 потока...

Больше. Их количество определяется исходными данными программы (числом строк Memы)

[Adm]

За пример спасибо, но его я и сам читал в книжке Фаронова...
Видимо, я не совсем точно объяснил, чего я хочу.

Суть в том, что поток я создал. С конструктором и процедурами. Те из них, которые меняют визуальные компоненты главной формы вызываются в MyTheard.Execute через Synchronize. Примерно так:

unit Unit4;

interface

uses
Classes;

type
TTh = class(TThread)
private
procedure Work;
procedure Start;
procedure Stop;
{ Private declarations }
public
constructor Create(Var1: String; Var2: integer);
protected
procedure Execute; override;
end;

implementation

Uses Unit1,Classes;

constructor TTh.Create(Que: String; Number: integer);
begin
inherited Create(True);
FreeOnTerminate:= True;
Question:= Que;
Num:= Number;
Priority:= tpNormal;
end;

procedure TTh.Execute;
begin
{ Place thread code here }
Synchronize(Start);
While (Not Terminated) Do Synchronize(Work);
Synchronize(Stop);
end;

procedure TTh.Work;
begin
некие действия, использующие компоненты главной формы
end;

procedure TTh.Start;
begin
сообщение в форму о старте потока
end;

procedure TTh.Stop;
begin
сообщение в форму о финише потока
end;

end.

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

For i:= 0 To Num-1 Do
Begin
Th[i]:= TTh.Create(Question,i);
Th[i].Resume;
End;


А как надо?

[mihali4]

А где объявление массива потоков Th[i] ?

[Adm]

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

А где объявление массива потоков Th[i] ?

Оно сделано в основной программе:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw, ExtCtrls, Unit2, Unit4,
ActnList, StdActns, SHDocVw_EWB, EwbCore, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, ComCtrls, Grids;

type

TForm1 = class(TForm)
...
private
Th: array[0..9] of TTh;
{ Private declarations }
public
Num : Byte;
{ Public declarations }
end;

var
Form1: TForm1;

implementation
...

[mihali4]

A private member is invisible outside of the unit or program where its class is declared.

Перевожу:
"Содержимое секции PRIVATE невидимо за пределами юниты, в которой оно объявлено."

Кто вас научил спрятать, вместо того, чтобы расшарить?

[Adm]

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

"Содержимое секции PRIVATE невидимо за пределами юниты, в которой оно объявлено."

А мне и не нужно, чтобы элементы массива Th[i] были видны за пределами Unit1!

[mihali4]

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

А мне и не нужно, чтобы элементы массива Th[i] были видны за пределами Unit1!

Оригинально...
А как же вы хотите их использовать в Unit4, если сами спрятали их от нее ?