LR
02 de Septiembre del 2009

Hago un hilo de esta manera:

THilo = class(TThread)
private
{ Private declarations }
Var1 : Array [0..10] of String;
Var2 : TDateTime;
Var3 : Integer;
public
constructor Create;
destructor Destroy; override;
procedure Modificar;
procedure Execute; override;
protected
end;

Con el create:
constructor THilo.Create;
begin
inherited Create(True);
Priority := tpLower;
FreeOnTerminate := True;
Resume;
end;

Y despues asignar variables así:

var
Hilo : THilo
begin
Hilo := THilo.Create;
Hilo.Var1 := cadena; //suponiendo que cadena
//y conta son globales en el programa
Hilo.Var2 := 'True';
Hilo.Var3 := conta;
end;
Y en el execute llamar a una funcion que utilice las variables directamente (ej. if var3=....)

Pero creo que lo tengo que hacer asi:

THilo = class(TThread)
private
{ Private declarations }
Var1 : String;
Var2 : Boolean;
Var3 : Integer;
public
constructor Create(var11:String;var22:Boolean;var33:Integer);
destructor Destroy; override;
procedure Modificar;
procedure Execute; override;
protected
end;

Y ya en el create asignarle las variables

constructor THilo.Create;
begin
inherited Create(True);
Priority := tpLower;
FreeOnTerminate := True;

var1 := var11;
var2 := var22;
Var3 := var33;
Resume;
end;

Lo que no entiendo es como asignar las variables var11, var22 y var33 ¿?¿?¿?