Пример передачи значения переменной потоку

Posted by Chas under Delphi

GunSmoker

type

  TMyThread = class(TThread)

  private

    FValue: Integer;

    procedure TerminateHandler(Sender: TObject);

  protected

    procedure Execute; override;

    property Value: Integer read FValue;

  public

    constructor Create(const AValue: Integer);

  end;
{ TMyThread }
constructor TMyThread.Create(const AValue: Integer);

begin

  FValue := AValue;

  OnTerminate := TerminateHandler;

  inherited Create(False);

end;
procedure TMyThread.Execute;

begin

  // код, использующий Value

end;
procedure TMyThread.TerminateHandler(Sender: TObject);

begin

  // код выхода

end;