Amigos de Club Delphi, estoy usando delphi rad studio xe4, y me enfrento con el siguiente problema.
tengo dos units, unit1 y unit2, tengo definido unit2 de la sgte manera :
Código Delphi
[-]
HiloTrabajoBack = class(TThread)
private
LB_ListaPersona : TListBox;
LB_ListaPersonas2 : TListBox;
NombreProducto : String;
protected
procedure Execute; override;
procedure PosicionListBox;
public
constructor Create(LB_ListaP1:TListBox; LB_ListaP2:TListBox; NomProd : String);
end;
implementation
constructor HiloTrabajoBack.Create(LB_ListaP1:TListBox; LB_ListaP2:TListBox; NomProd : String);
begin
inherited Create(False);
Self.LB_ListaPersonas := LB_ListaP1;
Self.LB_ListaPersonas2 := LB_ListaP2;
NombreProducto := NomProd;
end;
procedure HiloTrabajoBack.Execute;
begin
try
Synchronize(PosicionListBox);
except
on E: Exception do
Messagedlg('Error Al Ejecutar El Thread' + E.Message,mtError,[mbok],0);
end;
end;
procedure HiloTrabajoBack.PosicionListBox;
var
indice : integer;
ProductoAux : String;
begin
for indice := 0 to Self.LB_ListaPersonas2.Count-1 do
begin
ProductoAux := Self.LB_ListaPersonas2.Items[indice];
if(CompareStr(Self.NombreProducto, ProductoAux) = 0) then
begin
Self.LB_ListaPersonas2.Selected[indice]:=True;
Break;
end;
end;
end;
end.
lo que necesito es definir una variable, o una propiedad de la clase Unit2 que capture y mantenga el valor que me arroja indice del metodo PosicionListBox y pueda acceder a este desde el Unit1.
en Unit1 en el metodo click de un listbox, tengo creado mi objeto HiloTrabajoBack
Código Delphi
[-]
procedure TF_ClientesPersonas.LB_CuentaPersonasOnClick(Sender: TObject);
begin
TrabajoUno := HiloTrabajoBack.Create(LB_CuentaCliente, LB_Cliente2, LB_CuentaCliente.Items[LB_CuentaCliente.ItemIndex]);
end;
entonces desde el objeto TrabajoUno necesito traer el valor de indice desde mi objeto en Unit1........quizas es complicado de entender lo que trato de explicar pero no se como explicarlo mejor.
Yo he programado en java, y desde java a las clases se les dota de los metodos getter y setter y listo, pero aca en delphi el valor no se mantiene, he intentado con property y tratando de utilizar class var para crear variables estaticas en la clase del thread y que esta mantenga el valor pero no he obtenido ningun resultado.
se que puedo definir una variable privada en la clase HiloTrabajoBack y acceder a esta con unos getter y setter en public, pero al hacerlo (por que pense que ocurria lo mismo), cuando accedo desde mi objeto TrabajoUno.NombreVariable y accedo a su valor me arroja 0, estuve haciendo un debug con delphi cuando probe creando una variable y ha esta se le asigna, pero al momento de ir a buscar el valor desde mi objeto, no obtengo nada.
en definitiva.
Como mantengo un valor desde una Unidad a Otra, o sea Obtener un valor de Unit2 en Unit1, y accederla desde mi objeto?