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

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

......................................................

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.
removeu 1054 caracteres do conteúdo
Fonte Link

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.

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.

......................................................

Fonte Link

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.