Ver Mensaje Individual
  #2  
Antiguo 08-10-2023
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is online now
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.043
Reputación: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
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;
Responder Con Cita