Skip to main content
3 de 3
Reversão para edição 1
rray
  • 67,7mil
  • 21
  • 116
  • 285

Como passar parametros para execute em uma thread Delphi

estou com dificuldade em atribuir um valor de uma variável dentro do Execute de uma Thread.

preciso atribuir um valor para a variável Name através da FName que está dentro do execute de uma thread.

segue exemplo que estou tentando fazer.

program Project2;

uses
  System.SysUtils, Classes;

type
  TTest = class(TThread)
  private
    var FName: string;
  protected
    procedure Execute; override;
  public
    constructor Create(const CreateSuspended: boolean; out AName: string);
  end;


{ TTest }
constructor TTest.Create(const CreateSuspended: boolean; out AName: string);
begin
  AName:= 'Test2';
  FName:= AName;
  inherited Create(CreateSuspended);
end;

procedure TTest.Execute;
begin
  FName:= 'Teste3';
end;


var
  Name: string;
  Test: TTest;
begin

  Name:= 'Teste1';
  WriteLn(Name);

  Test:= TTest.Create(False, Name);
  WriteLn(Name);

  ReadLn;
end.