¿Se pueden modificar Global Vars en un TThread?

[Casimiro Notevi]

A falta de que lo confirme alguien más experto, pienso que sí es posible.

Código Delphi [-]
unit MainUnit;

interface

var
  GlobalVariable: Integer;

implementation

// Resto de tu código...

end.

Código Delphi [-]
unit MyThreadUnit;

interface

uses
  System.Classes;

type
  TMyThread = class(TThread)
  protected
    procedure Execute; override;
  end;

implementation

procedure TMyThread.Execute;
begin
  // Modificar la variable global
  GlobalVariable := 42;
end;
end.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  MyThread: TMyThread;
begin
  // Crear e iniciar el hilo
  MyThread := TMyThread.Create(True);
  MyThread.Start;

  // Esperar a que el hilo termine (opcional)
  MyThread.WaitFor;

  // Liberar la memoria del hilo
  MyThread.Free;

  // Ahora puedes acceder a GlobalVariable modificada por el hilo
  ShowMessage('Valor de GlobalVariable: ' + IntToStr(GlobalVariable));
end;