Validar

[Elite237]

Una duda, quiero validar de manera que cuando ya se hayan introducido los datos salga una ventana que me diga que los datos se han guardado correctamente. Este es el codigo que introduci en mi boton. Que me hace falta para la validacion?


begin
Depto.Insert;
Depto.FieldValues['clave']:=Edit1.Text;
Depto.FieldValues['nombre']:=Edit2.Text;
Depto.FieldValues['descripcion']:=Edit3.Text;
Depto.FieldValues['jefe']:=Edit4.Text;
Depto.Post;
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear;
end;

[[eduarcol]]

Amigo Elite ya llevas varios mensajes posteando codigo sin utilizar los tag's por favor ayudanos a entenderlo

con respecto a tu duda

Código Delphi [-]
begin
   try
      Depto.Insert;
      Depto.FieldValues['clave']:=Edit1.Text;
      Depto.FieldValues['nombre']:=Edit2.Text;
      Depto.FieldValues['descripcion']:=Edit3.Text;
      Depto.FieldValues['jefe']:=Edit4.Text;
      Depto.Post;
      Edit1.Clear;
      Edit2.Clear;
      Edit3.Clear;
      Edit4.Clear;
      ShowMessage('Exito');
   except
      ShowMessage('Error');
   end;
end;