Sentencias si existen datos dentro de un BDEdit

[feliz-58]

Empezado por ecfisa

Hola.

Si el TADOTable con el cuál se relaciona el TDBEdit mediante un TDataSource, está abierto y contiene al menos un registro, mostrará el registro actualmente seleccionado en la tabla.
Es decir que el único modo que al abrir un DataSet el DBEdit relacionado no muestre nada es que nada haya en la tabla.

Es por eso que no entiendo por que verificar si el DBEdit tiene algún valor asignado, ya que si el registro relacionado lo tiene lo mostrará y de otro modo no lo hará. (Pensá en el TDBEdit como la representación visual del contenido de un campo de una tabla)

De todos modos para verificar si un TDBEdit no tiene nada escrito, podrías revisar su propiedad Text:

Código Delphi [-]
...
  if tu_DBEdit.Text = '' then
    ShowMessage('Sin contenido');
  ...

Saludos.

y si hay algo como haria para que me muestre un mensaje?

mi objetivo no es que muestre un mensaje pero si entiendo como conjugar la accion, podre cambiar el mensaje por lo que yo quiera, me entiendes?



Mira lo que pasa, tengo una serie de DBedits, y como ocurre con el asunto de que si la tabla tiene registros, los DBedits aparecen llenos, habia colocado en el evento OnShow del formulario, el:

Código Delphi [-]
Adotable1.insert;

pero tenia un problema y es que, por ejemplo, si habria el formulario la primera ves, me ingresaba todos los datos,y asi quedaban limpios para ingresar un nuevo registro, pero si la primera ves que entraba, cerraba el formulario sin ingresar nada, a la segunda ves, en la base de datos me ingresaba una linea de registros vacia, y asi hace cada ves que entras, entonces lo que quiero hacer es que, si hay algo escrito en el DBEdit lo inserte si no los deje asi y no me inserte un espacio en blanco.

Gracias