Que pasa con "ComponentCount"...

Chente(rMan) · #1 09-01-2006

Hola que tal, de verdad que no se que estoy haciendo mal, pero ya llevo unos cuantos dias con este problema, tambien un colega ya le hecho un ojo y no me supo decir que es lo que pasa, solo que esta ben raro, bueno, al buscar un reporte ejecuto el siguiente proc.

Código Delphi [-]procedure TfrmExpediente.LimpiarCheckBox;
var Check: TcheckBox;
I: Integer;
begin
for I := 0 to ComponentCount - 1 do
if Components[i] is TCheckBox then
begin
Check := TCheckBox(Components[i]);
Check.Enabled := False;
end
end;

después sigo ejecutando otros procs. para que ya casi al final, ejecutar otro que hace lo siguiente:

Código Delphi [-]procedure TfrmExpediente.Validaciones3E;
var Check: TcheckBox;
I: Integer;
begin
if esto = 'aesto' then
for I := 0 to ComponentCount - 1 do
if Components[i] is TCheckBox then
begin
//aqui jamas entra, es como si ningun componente fuera de la clase TCheckBox...
Check := TCheckBox(Components[i]);
if Check.tag = 501 then 
Check.Enabled := True;
end;
end;

Lo curioso es que empece a seguirles el rastro y agregue esta linea en los 2 procs:

Código Delphi [-]ListBox1.Items.Add(Components[i].Name);

En el primer Proc. me llena el listbox con el nombre de los componentes y en el segundo solo les deja el espacio en blanco sin nombre, creo que el problema viene de esto pero ya no se que es lo que esta pasando, si alguien me puede ayudar le estare muy agradecido, gracias.

Vicente López.

Chente(rMan) · #2 10-01-2006

Listo, ya esta funcionando, tuve que sacar ese pedazo de código a un procedimiento aparte, y cuando lo necesito lo mando llamar.

Saludos.