Потоки

[_-Re@l-_]

Вот есть такие потоки:

unit Sin;

interface

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

type
  SinThread = class(TThread)
  private
  ans:Extended;
  protected
    procedure Execute; override;
    procedure DoSet(X:Extended);
  end;

implementation

uses Unit1,Math;

procedure SinThread.DoSet(X:extended);
begin
      Unit1.Form1.ListBox1.AddItem(FloatToStr(X),nil);
end;

procedure SinThread.Execute;
var i:Integer;
begin
      For I:=1 To 360 Do
      Begin
            ans:=Sin(I*Pi/180);
            Synchronize(Doset(ans));
      End;
end;

end.

unit Cos;

interface

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

type
  CosThread = class(TThread)
  private
  ans:extended;
  protected
    procedure Execute; override;
    procedure Doset(X:Extended);
  end;

implementation

uses Unit1;

procedure CosThread.Doset(X:Extended);
begin
      Unit1.Form1.ListBox2.AddItem(FloatToStr(X),nil);
end;

procedure CosThread.Execute;
var i:Integer;
begin
      For I:=1 To 360 Do
      Begin
            ans:=Cos(I*Pi/180);
            Synchronize(Doset(ans));
      End;
end;

end.

unit Tg;

interface

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

type
  TgThread = class(TThread)
  private
  ans:Extended;
  protected
    procedure Execute; override;
    procedure Doset(X:Extended);
  end;

implementation

uses Unit1;

procedure TgThread.Doset(X:Extended);
begin
      Unit1.Form1.ListBox3.AddItem(FloatToStr(X),nil);
end;

procedure TgThread.Execute;
var i:Integer;
begin
      For I:=1 To 360 Do
      Begin
            ans:=Tan(I*Pi/180);
            Synchronize(DoSet(Ans));
      End;
end;

end.

unit Ctg;

interface

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

type
  CtgThread = class(TThread)
  private
  ans:Extended;
  protected
    procedure Execute; override;
    procedure DoSet(X:Extended);
  end;

implementation

uses Unit1,Math;

procedure CtgThread.DoSet(X:extended);
begin
      Unit1.Form1.ListBox4.AddItem(FloatToStr(X),nil);
end;

procedure CtgThread.Execute;
var i:Integer;
begin
      For I:=1 To 360 Do
      Begin
            Ans:=1/Tan(I*Pi/180);
            Synchronize(CDoSet(Ans));
      End;
end;

end.

Но вот в последнем модуле(Ctg) выдаёт ошибку в строке Synchronize(DoSet(Ans)). Почему? Ведь коды листингов идентичны.

[veniside]

Synchronize(CDoSet(Ans));

Ы ?

[Stilet]

Ы ?

Видать автору баиньки пора. Утро вечера мудренее

[_-Re@l-_]

Ы ?

Прошу прощения, это просто опечатка, в коде этого нет.

А проблему уже исправил, она заключалась в совершенно другом.
Вот так надо было:

Synchronize(Doset);

А процедуру Doset переписать так:

procedure SinThread.Doset;
begin
        Unit1.Form1.ListBox1.AddItem(FloatToStr(ans),nil);
end;

И всего-то.
Темку можно закрыть.

[GunSmoker]

Одинаковые листинги, что и говорить...

По теме: вместо синхронизации можно рассмотреть отправку сообщения окну.

[_-Re@l-_]

Одинаковые листинги, что и говорить...

Название модулей и классов не в счёт.

[SNUPY]

Я не критикую, а просто советую:
вот наверно красивше было бы:

unit Sin;


interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;

type
  TFunc = function(x: extended): extended;

  TCalcThread = class(TThread)

  private

  ans:Extended;

  protected

    procedure Execute; override;

    procedure DoSet(X:Extended);

  public

    af: TFunc;

    constructor Create(CreateSuspended: Boolean; f:TFunc);

  end;



implementation



uses Unit1,Math;


constructor TCalcThread.Create(CreateSuspended: Boolean; f:TFunc);
begin
  inherited Create(CreateSuspended);
  af :=f;
end;


procedure TCalcThread.Doset;

begin

        Unit1.Form1.ListBox1.AddItem(FloatToStr(ans),nil);

end;



procedure TCalcThread.Execute;

var i:Integer;

begin

      For I:=1 To 360 Do

      Begin

            ans:=a;)f(I*Pi/180);

            Synchronize(Doset);

      End;

end;



end.

и потом насоздавать так их:

ThSin := TCalcThread.Create(false, sin);
ThCos := TCalcThread.Create(false, cos);
...