Потоки

[spirit-ua]

Всем Привет!

Нарыл код, немного доработав и вот:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TMyThread = class(TThread)
  private
  answer: Integer;
  protected
  procedure ShowResult;
  procedure Execute; override;
  end;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MyThread: TMyThread;

implementation

{$R *.dfm}

{ TMyThread }

procedure TMyThread.Execute;
 var
    i:Integer;
 begin
    //inherited;
    for i:=1 to 250 do
       begin
       answer:=answer+1;
       Synchronize(ShowResult);
       sleep(50);
       if MyThread.Terminated then break;
       end;
 end;

procedure TMyThread.ShowResult;
 begin
    Form1.Edit1.Text:=IntToStr(answer);
 end;

procedure TForm1.Button1Click(Sender: TObject);
 begin
    MyThread:=TMyThread.Create(False);
    MyThread.Priority:=tpLower;
 end;

procedure TForm1.Button2Click(Sender: TObject);
 begin
    MyThread.Terminate;
 end;

end.

При нажатии на Button1 два раза запускается два потока но результат этих двух потоков выводиться в Edit1, как сделать чтоб второй поток выводился в Edit2? Я понимаю что можно создать еще две процедуры но это не выход, а если потребуется с десяток потоков?

С потоками не работал, ломал голову но не получается, помогите

[Аватар]

Или при создании потока передавать ему Edit в качестве параметра, или свойство соответствующее у потока сделать. А при создании уже разруливать, какой эдит передать

[spirit-ua]

Сообщение от Аватар

... свойство соответствующее у потока сделать. А при создании уже разруливать, какой эдит передать

Я думал в эту сторону но как?
Свойство в потоке это счетчик который будет увеличиваться при создании очередного потока? Как передать Едит в поцедуру и как разрулить по разных Едитах?

Не посчитайте за наглость но, допилите пожалуйста код

[Аватар]

Передать так например

TMyThread = class(TThread)
  private
  answer: Integer;
    lEdit: TEdit;
  protected
  procedure ShowResult;
  procedure Execute; override;
  public
    constructor Create(Edit: TEdit);
  end;

constructor TMyThread.Create(Edit: TEdit);
begin
  inherited Create(True);
  lEdit:=Edit;
  Priority:=tpLower;
  Resume;
end;

А разруливать - ну держите счетчик кликов и массив эдитов и передавайте нужный.

[spirit-ua]

Аватар, спасибо!

Посмотрите код, уверен что можно оптимизировать, ткните носом на ошибки

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TMyThread = class(TThread)
  private
     answer: Integer;
     TH_Edit: TEdit;
  protected
     procedure ShowResult;
     procedure Execute; override;
  public
     constructor Create(EDIT: TEdit);
  end;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  count_max = 5;

var
  Form1: TForm1;
  MyThread: TMyThread;
  count_i: integer = 0;
  mas_Edit: array[1..count_max] of TEdit;

implementation

{$R *.dfm}

{ TMyThread }

procedure TMyThread.Execute;
 var
    i:Integer;
 begin
    for i:=1 to 250 do
       begin
       answer:=answer+1;
       Synchronize(ShowResult);
       sleep(50);
       if MyThread.Terminated then break;
       end;
 end;

procedure TMyThread.ShowResult;
 begin
    TH_Edit.Text:=IntToStr(answer);
 end;

constructor TMyThread.Create(EDIT: TEdit);
 begin
    inherited Create(True);
    TH_Edit:=EDIT;
    Priority:=tpLower;
    Resume;
 end;

procedure TForm1.Button1Click(Sender: TObject);
 begin
    Inc(count_i);
    if count_i <= count_max then
       begin
       mas_Edit[count_i] := TEdit.Create(nil);
       mas_Edit[count_i].Parent := Form1;
       mas_Edit[count_i].Left := 10;
       if count_i = 1 then mas_Edit[count_i].Top := 10
          else mas_Edit[count_i].Top := mas_Edit[count_i-1].Top + mas_Edit[count_i-1].Height + 5;
       MyThread:=TMyThread.Create(mas_Edit[count_i]);
       end;
 end;

procedure TForm1.Button2Click(Sender: TObject);
 begin
    MyThread.Terminate;
 end;

end.

[Аватар]

А чего его оптимизировать, учебный код ни о чем. С таким же успехом это можно и через таймер сделать. Ваш MyThread.Terminate отработает только для последнего созданного потока и ни один поток не очищается в программе. TThreadList посмотрите

[phomm]

spirit-ua зачем такие сложности с попытками гадать на кофейной гуще ? Прочтите нормальные мануалы вроде http://forum.vingrad.ru/forum/topic-60076.html да смело в бой.