Como validad 324 TEdit's, no null?

[[egostar]]

Hola

No dudo que los componentes JEDI sean muy buenos, pero esto se puede hacer con los Edit normales de Delphi, digo yo "pa" que entonces es la POO .

Coincido con [Caro] al decir que se inicialicen todos los Edit a cero y se genere el evento OnKeyPress con lo siguiente:

Código Delphi [-]
procedure TGerencia_Reg.Edit1KeyPress(Sender: TObject; var Key: Char);
 begin
  if not (key in ['0'..'9',#8]) then key:=#0;
end;

Depués generar el evento OnChange en cualquier Edit de este forma:

Código Delphi [-]
procedure TGerencia_Reg.Edit1Change(Sender: TObject);
begin
   if ( (Sender as TEdit).text = '') or (Sender as TEdit).text = ' ') ) then
        (Sender as TEdit).text := '0';
end;

Finalmente seleccionas los 323 Edit's restantes y le asignas los mismos eventos a todos.

Así de fácil te la pone nuestra herramienta Delphi

Intentalo y veras lo bonito que queda

Salud OS