Delphi - Necesito pasar un mensaje en edit en blanco

 
Vista:

Necesito pasar un mensaje en edit en blanco

Publicado por FRANKLIN (32 intervenciones) el 27/07/2011 20:49:54
Hola foro, soy nuevo en esto.
Necesito pasar un mensaje cuando algun edit de un form este en blanco. Lo que estoy haciendo es esto:
begin
if edit1.text = ' ' then
else
if edit2.text = ' ' then
else
if edit3.text = ' ' then
else
if edit4.text = ' ' then
else
if edit5.text = ' ' then

begin
showmessage ('No puede haber campos en blanco');

edit1.setfocus;
end;
table1.insert;

begin
messgedlg('accion realizada',mtconfirmation. [mbok],0)

end;
end;
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

Necesito pasar un mensaje en edit en blanco

Publicado por Ragaru (46 intervenciones) el 29/07/2011 18:53:45
Creo que el texto a desarrollar es el siguiente :
Begin
If (Edit,Text = '') or (Edit2.Text = '') or (Edit3.Text= '') or (Edit4.Text = '') or (Edit5.Text= '') Then
Begin
showmessage ('No puede haber campos en blanco');

edit1.setfocus
End; // Aqui termina el If
Table1.Insert;// Como NO hay Edits en blanco se graba la Tabla indexada
// El Begin que has puesto aqui creo que sobra
messgedlg('accion realizada',mtconfirmation. [mbok],0);

End;

con todos los or que hemos puesto se consigue que si alguno de los 5 Edits esté en blanco
aparece el mensaje. Importante que existan los parentésis que separa un Edit de otro. De no
poner los parentesis el invento NO funciona.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar