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;
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
0