Освобождение памяти после работы потока

[denis76560]

Нашел где косяк был

type
  MyThread = class(TThread)
  private
    Rezult : integer;
  public

  protected - в этой строке
    procedure Execute; Override;
   constructor Create(CreateSuspended: Boolean); virtual;
   //  constructor Create; virtual;
    destructor Destroy; override;
    procedure  Threadfree;
    procedure Sync;
end;

Как я и предполагал, что в какой-то мелочевой строке косяк, спасибо за помощь, буду теперь чаще внимание на PROTECTED обращать =)

[Aliens_wolfs]

Вот работа через сообщение объекта

unit Unit2;

interface

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

  type
  MyThread = class(TThread)
  private
    FOnResult: TNotifyEvent;
    FRezult : integer;
    protected
   procedure DoResult; virtual;
   procedure Threadfree; virtual;
  public
    procedure Execute; Override;
    constructor Create; virtual;
    destructor Destroy; override;
    property OnResult: TNotifyEvent read FOnResult write FOnResult;
    property Rezult: integer read FRezult write FRezult;
end;

implementation

constructor MyThread.Create;
begin
  inherited Create(false);
  FreeOnTerminate := True;
end;


destructor MyThread.Destroy;
begin
  Synchronize(Threadfree);
  inherited;
end;

procedure MyThread.Threadfree;
begin
Showmessage('Уничтожен');
end;

procedure MyThread.Execute;
begin
  Randomize;
Frezult:=RandomRange(0,456546);
Synchronize(DoResult);
 end;


procedure MyThread.DoResult;
begin
  if Assigned(FOnResult) then
    FOnResult(Self);
end;

end.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure OnResult(Sender: TObject);
  end;





 var
  Form1: TForm1;



{$R *.dfm}

implementation



procedure TForm1.Button1Click(Sender: TObject);
var
myThreadTmp: MyThread;
begin
myThreadTmp:=myThread.Create;
myThreadTmp.OnResult:= OnResult;
end;


procedure TForm1.OnResult(Sender: TObject);
begin
memo1.Lines.Add(IntToStr(MyThread(Sender).Rezult));
end;

end.

Я на этих потоках раньше сам запинался пока не усвоил много мелочей в них

[denis76560]

О, классно, благодарю, теперь и поспать можно пойти, а то с 4х ночи сидел вникал где ошибка =)

[Aliens_wolfs]

Как я и предполагал, что в какой-то мелочевой строке косяк, спасибо за помощь, буду теперь чаще внимание на PROTECTED обращать =)

Походу поток у тебя не завершался из-за того что не было объявлено
destructor Destroy; override;

а секции Protected, Public, Private это совсем другое не из-за этого

Можно еще сделать поток с ожиданием его завершения и по окончании получать результат

unit Unit2;

interface

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

  type
  MyThread = class(TThread)
  private
    FRezult : integer;
  Protected
   procedure Execute; Override;
   procedure Threadfree; virtual;
  public
    constructor Create; virtual;
   destructor Destroy; override;
    property Rezult: integer read FRezult write FRezult;
end;

implementation

uses
Unit1;

constructor MyThread.Create;
begin
  inherited Create(false);
  FreeOnTerminate := True;
end;


destructor MyThread.Destroy;
begin
  Synchronize(Threadfree);
  inherited;
end;

procedure MyThread.Threadfree;
begin
Showmessage(Уничтожен');
end;

procedure MyThread.Execute;
begin
 Randomize;
 Frezult:=RandomRange(0,456546);
 end;

end.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public

  end;


 var
  Form1: TForm1;

{$R *.dfm}

implementation

procedure TForm1.Button1Click(Sender: TObject);
var
myThreadTmp: MyThread;
begin
myThreadTmp:=myThread.Create;
while myThreadTmp.Rezult = 0 do // Ждем пока результат будет больше 0
application.ProcessMessages;
memo1.Lines.Add(IntToStr(myThreadTmp.Rezult)); // Получаем результат
end;


end.