Ver Mensaje Individual
  #5  
Antiguo 16-06-2006
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
En principio, deberías poner las restricciones en la base de datos (campo not null) y de esa forma el sistema gestor de bases de datos es el que se encarga de mandar un error si queda alguno vacío.

De todas formas, si quieres hacerlo del lado del cliente, este bucle puede servirte:

Código Delphi [-]

for i:=0 to components.Count-1 do
  if Components[i] is TEdit then
   with TEdit(components[i]) do
      if Tag = 1 then
      if Text = EmptyStr then
           raise Exceptioin.Create('La caja de texto con nombre '+ Name+ ' no puede dejarse vacío');

dicho de memoria .... (siento si tiene errores)

El bucle recorre todos los componentes que tengas en el Form, pero si alguno está dentro de un panel no lo mirará.
He puesto la condición "if tag= 1" para que sólo mire en los Tedits que tengan esa propiedad a 1 (deberás ponerlo en tiempo de diseño), así puedes diferenciar los Tedits que son de validar datos, de otros TEdits que sirven para otras cuestiones.

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.

Última edición por Lepe fecha: 16-06-2006 a las 08:33:07.
Responder Con Cita