Validacion mensaje de texto
Que tal, Acudo nuevamente a ustedes con este problema, tengo el siguiente codigo:
procedure TForm12.Button1Click(Sender: TObject); begin if dbedit1.Text='' then begin showmessage('Falta Fecha'); end; if edit2.Text='' then begin showmessage('Falta Cantidad a Traspasar'); end else if strtoint(edit2.Text) > strtoint(dbedit6.Text) then begin ShowMessage('No puede ser Mayor la cantidad que las existencias') end else begin form12.Table3.Insert; Hace la validacion de en dbedit1, si el siguiente campo (edit2) esta vacio manda el mensaje de error pero tambien inserta en un dbgrid los datos de los dbedti1 y edit2. ¿Alguien sabe por que no hace la validacion correctamente? (solo me mande el mensaje y no inserte nada si es que estan vacios los campos) Saludos :D |
Sera que te falta un ELSE:
si es solo ese tu codigo, tambien hay begin y ends innecesarios:
PD: usa las etiquetas!!! |
Gracias, funciona de maravilla!!:D
Saludos |
La franja horaria es GMT +2. Ahora son las 21:35:34. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi