[MoS]

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

Сделать массив из потоков, и присваивать в Potok[i]. Соответственно, останавливать тоже Potok[i]. А на будущее - отказаться от названий классов и переменных в транслитерации.

Код:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  Potok = class(TThread)
  private
    h: Extended;
  public
  protected
    procedure Execute; override;
    procedure ShowResult;
  end;
 
var
  Form1: TForm1;
  pot: array[1..10] of Potok;
   
implementation
 
{$R *.dfm}
 
{ Potok }
procedure Potok.Execute;
begin
  inherited;
  h:=0;
  while (h<>1000000000) do
  begin
    h:=h+0.001;
    Synchronize(ShowResult);
  end;
end;
 
procedure Potok.ShowResult;
begin
  Form1.Label3.Caption:=FloatToStr(h);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  for i:=1 to 2 do
  begin
    pot[i]:=Potok.Create(false);
    pot[i].Priority:=tpNormal;
    pot[i].FreeOnTerminate:=true;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
begin
  for i:=1 to 2 do pot[i].Suspend;
end;
 
end.

Так?

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

А на будущее - отказаться от названий классов и переменных в транслитерации.

Не очень понятно о чем это?