Ejemplo sencillo para ejecutar Hilos en delphi

[[Chris]]

Estás seguro que ése código aparecía así en la Web original? O representa su propia intención de crear tus propios hilos? El código que nos compartes no tiene sentido y está todo mal.

Prueba con este código:

Código Delphi [-]
unit Unit2;

interface

uses
    Classes;

type
    THilo = class(TThread)
    private
        { Private declarations }
        FEjecutar: Procedure of Object;
    protected
        procedure Execute; override;
    published
        property Ejecutar: Procedure of Object read FEjecutar write FEjecutar;
    end;

    var
        Hilo: THilo; // variable global o pública (NO SON BUENA IDEA)


implementation
    uses Unit1;


// implentación de la clase THilo

procedure THilo.Execute;
begin
    // el procedimiento Execute contendrá todo el
    // código central del hilo. Si el hilo fuera
    // un árbol, Execute sería el tronco.
    
    // hacer los cálculos pesados

    // ...
    // ...
    // ...

    // notificar al formulario
    Synchronize(Self.Ejecutar);
    // (synchronize hace que este hilo se sincronice con el
    //  principal, para no interferir en las operaciones que
    //  el último pueda estar realizando. En este caso el
    //  hilo será suspendido [pausado] hasta que "Ejecutar"
    //  termine su ejecución.)
end;


procedure CrearHilo;
begin
    // Como crear el hilo?
    // los hilos se crean cómo cualquier otra clase en Delphi.
    Hilo := THilo.Create(CreateSuspended:=True);

    Hilo.Ejecutar := Form1.ProcesarDatos;
    Hilo.Priority := tpNormal;
    Hilo.Resume;
end;

procedure ProcesarDatos;
begin
  // Este es el procedimiento que ejecutará nuestro hilo
  // Cuidado con hacer procesos críticos aquí
  // El procesamiento paralelo de XP no es el de Linux
  // Se puede ir por las patas abajo...


end;

end.

Saludos!

[Neftali [Germán.Estévez]]

Tienen razón en lo que te han dicho. Yo tampoco le veo sentido al código que has puesto. Le faltan cosas...
En la sección de ejemplos del FTP del club, si buscas por la palabra thread, encontrarás varios ejemplos completos con código.

En mi web, también puedes encontrar algunos ejemplos sobre threads, desde los más sencillos, como este o este otro, a alguno más complejo como este que trabaja con hilos para lanzar consultas con ADO en paralelo. Todos ellos tienen el código fuente. Bájalo, revísalo e intenta entenderlo.

Si tienes problemas, ya dirás...

[n03l]

Ok, muchas gracias me sirvio bastante, ya lo solucione con la ayuda de todos Uds.
saludos