Ver Mensaje Individual
  #1  
Antiguo 23-05-2007
ilichhernandez ilichhernandez is offline
Miembro
 
Registrado: oct 2005
Posts: 277
Reputación: 21
ilichhernandez Va por buen camino
Error en validacion

Estimados, tengo un error mientras intento validar por intermedio de recorres los componentes de mi formulario

La idea es recorrer los componentesw Edit y verificar los que tengan tag = 88, entonces esos componentes validarlos que tengan algo escrito.

Código Delphi [-]
Procedure Validar_edit();
var n : integer;
    form10 : TForm10;
    Componentes : TComponent;
Begin
    for n:= 0 to Form10.ComponentCount -1 do
        Begin
             Componentes := Form10.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;

El error que me arroja dice lo siguiente Project1.exe raised exception class EAccessViolation with message "Access violation at address 004270FF in module "project1'.

Si alguien sabe de que se trata este error o ve algun error importante en mi codigo seria tan amable de decirme, gracias desde ya.

Atentamente
Ilich Hernandez.
__________________
[Lo que a veces es tan facil, a veces parece imposible]
Responder Con Cita