Estoy estudiando el tema de hilos por primera vez, empecé con este ejemplo:
Acá defino mi clase de tipo Hilo
TMyWorkerThread = class(TThread)
procedure DoSomeWork();
private
FidHilo : string;
public
procedure Execute; override;
constructor Create(pTxt: string);
property idHilo : string read FidHilo write FidHilo;
end;
Construyo un instancia
constructor TMyWorkerThread.Create(pTxt: string);
begin
inherited Create(False);
FidHilo := pTxt;
end;
E imediatamente pasa al Execute
procedure TMyWorkerThread.Execute;
begin
DoSomeWork();
end;
El trabajo fuerte lo hace la el procedimiento DoSomeWork()
, que en resumen agrega un string grande a un objeto TListString, Tmemo en Form1.
procedure TMyWorkerThread.DoSomeWork;
var
myGranString : String; //String de más de 1000 caracteres
myLiteralString : String;
Aleatorio, i : integer;
begin
Aleatorio := (1+random(10))*1000;
// tiempo de espera aleatorio entre 1 y 10 segundos
sleep(Aleatorio);
myLiteralString := 'Lorem ipsum dolor sit amet, consectetur adipiscing elit. Integer rutrum ligula non turpis semper maximus. Donec ultrices arcu elit. Nam nunc diam, tincidunt nec risus ut, cursus ut venenatis uan at... ';
myGranString := idHilo+'= ';
for i:=0 to 4 do
begin
myGranString := myGranString+ myLiteralString;
end;
Form1.AddHiloTerminado(1);
Form1.MyStringList.Add(myGranString);
Form1.Memo1.Lines.Add(myGranString);
end;
Cada vez que en Form1 oprimo un botón creo un hilo.
procedure TForm1.Button1Click(Sender: TObject);
begin
AddHiloIncial(1);
MyWorkerThread := TMyWorkerThread.Create(IntToStr(HiloInicial));
end;
Al oprimir un segundo botón, espero que todos los hilos terminen para mostrar un mensaje.
procedure TForm1.Button2Click(Sender: TObject);
begin
// Esperar a que terminen todos los hilos.
while(MyWorkerThread<>nil) and (WaitForSingleObject(MyWorkerThread.Handle, 0)<>WAIT_OBJECT_0) do
begin
// esperar a que termine
Application.ProcessMessages;
end;
//MyWorkerThread
ShowMessage('Termino');
end;
Cuando creo muchos hilos y luego oprimo el segundo botón, sucede que me muestra el mensaje de "Termino" pero el Tmemo aún me sigue mostrando como van ingresando los strings.
¿Cómo hacer para que el programa espere que el hilo termine todos las operaciones internas como pasar un string a un TListString y a un TMemo?
¿Es necesario crear un destructor o el hilo automáticamente se destruye cuando termina?