Error en validacion

[luisgutierrezb]

para mi que el error es esto:
(TEdit(Componentes).Tag = 88))

porque estas forzando a un componente a TEdit, en el mismo if donde revisas si es un TEdit, aqui mas bien se requieren 2 ifs, el primero para revisar si es TEdit y el segundo donde ya hagas el Cast

[ilichhernandez]

Voy a probar lo que me dices a ver si mejora esto.... gracias

[jacanche]

Como bien dice Delphi.com.ar, es un error por que estas queriendo acceder a las propiedades de un objeto que no ha sido inicializado o creado. Puedes usar la variable global de tu forma o asignarle a Form10 la variable global de tu forma o mejor aun, haz que validar_edit, sea un metodo del objeto forma para que tu codigo quede mas o menos asi.

Código Delphi [-]
Procedure TForm10.Validar_edit();
var n : integer;
    Componentes : TComponent;
Begin
    for n:= 0 to ComponentCount -1 do
        Begin
             Componentes := Components[n];
             If ((Componentes is Tedit) and (TEdit(Componentes).Tag = 88)) then
                 Begin
                    If TEdit(componentes).text = '' then
                        Begin
                           TEdit(componentes).color := clred;
                        end;
                 end;
        end;
Showmessage('Los campos en Rojo se deben revisar y completar');
end;

[aprendiz2]

Código Delphi [-]
 If ((Componentes is Tedit) and (TEdit(Componentes).Tag = 88)) then

Tambien es bueno asegurarse que la configuracion del compilador tenga la variable ShortCirtcuit Boolean Evaluation en TRUE, para que no de problemas evaluaciones como la de arriba. ( Si lo pones en falso, la misma pregunta con Componentes que no son TEdit podria dar problemas impredecibles..., en la parte que sigue al AND, y el debugger no te ayudaria mucho en detectarlo ). Para mi es mejor no confiar en el ShortCircuit boolean evaluation, y escribir de forma segura )

Quizas mas seguro poner..

Código Delphi [-]
if Componentes is TEdit then
     if TEdit( Componentes ).tag = 88 then

parece lo mismo... pero no lo es... !! ( estando el ShortCirtuit en false o true, con esta forma de preguntar no hay ningun problema ).

Saludos !! Espero le sirva a alguien !