hilo.pas

来自「Crear hilos en delphi Hilo.pas」· PAS 代码 · 共 27 行

//  crear un hilo de ejecuci髇 

THilo = class( TThread )
  Ejecutar: procedure of object;
  procedure Execute; override;
end;

procedure THilo.Execute;
begin
  Ejecutar;
  Terminate;
end;

var
Hilo: THilo; // variable global o p鷅lica

procedure CrearHilo;
begin
  Hilo.Ejecutar := ProcesarDatos;
  Hilo.Priority := tpNormal;
  Hilo.Resume;
end;

procedure ProcesarDatos;
begin
  // Este es el procedimiento que ejecutar