Como validad 324 TEdit's, no null?

[[BlueSteel]]

Empezado por axlrafael

Hola amigos miren en mi aplicación me interesa validar todos mis TEdit's, lo que quiero es que no queden vacios sino me marca error porque en el evento OnChange puse un código que me vaya sumando todos los valores de los TEdit's y se refleje en un TLabel, el problema es que son 324¡¡, pongo este código en el evento OnKeyPress (seleccione todos los TEdit's y di doble click en el evento):

procedure TGerencia_Reg.Edit1KeyPress(Sender: TObject; var Key: Char);
var
cero, i: integer;
begin
   if not (key in ['0'..'9',#8,#13]) then
key:=#0;
for i:=1 to 324 do
begin
If ((Findcomponent('Edit'+IntToStr(i)) as TEdit).Text=null) then //si oporimes el enter y el edit2 tiene algo escrito entonces
  Begin
  cero:=0;
  (Findcomponent('Edit'+IntToStr(i)) as TEdit).Text:=inttostr(cero);
  end;
  end;
end;

Ademas me interesa saber si el código ASCII de la tecla "Sup" es el mismo que la tecla "Delete"?

Saludos y suerte en sus proyectos

Hola axlrafael

utiliza el componente JvValidateEdit de la JVC (jedi)... ese te permite un mejor control.. además que te permite validar la entrada de solo numeros... tipo de dato moneda, con decimales, etc.

creo que debes asignarle a cada Edit el valor 0, como valor por defecto... en el caso de que no se ingrese nada... así evitaras que de error en la aplicación...

Salu2