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.