................................................... 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.