Como validad 324 TEdit's, no null?

[*Caro*]

Hola axlrafael, primero inicializa todos tus edit con un valor 0, y pon el codigo que tienes paar que reciba solo numeros en uno de tus edit y despues ese evento de ese edit lo asocias a los demas edit, para que no repitas codigo.

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

y en el evento OnExit de tu edit, puedes verificar que no se salga de dicho edit si esta vacío y este evento también lo asocias a todos tus edits.

Código Delphi [-]
procedure TGerencia_Reg.Edit1Exit(Sender: TObject);
begin
 if TEdit(Sender).Text='' then
  begin
   showmessage('Debe introducir un número');
   TEdit(Sender).SetFocus;
  end;
end;

Saluditos

[[coso]]

Para saber el codigo ascii de cualquier tecla, prueba de poner ShowMessage(inttostr(Key)) en el evento OnKeyDown (no el OnKeyPress) de un editbox, p.e.

[axlrafael]

Hola Caro, de nueva cuenta gracias por responder a mi ayuda.

Solo que esta vez no me sirvio tu truco , ya que al dejar el campo vacio automaticamente me aparece el error de que no son compactibles los datos enteros a los tipos string de los TLabel's.

Ya he probado con varios códigos y no me sirven.

Saludos