estoy realizando una pantalla y cuando lo ejecuto me aparece el siguiente error, sin embargo, al darle a continuar y guardar almacena la información en la base de datos. ¿Cómo hago para quitar ese mensaje? ¿Qué me falta validar?
Utilizo IBExpert como manejador de base de datos Firebird. Este es el código en Delphi que utilizo para construir la pantalla:
{$FORM TDescripcion, Ficha de Productos Terminados.sfm}
uses
Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
//Registrar
procedure Button1Click(Sender: TObject);
begin
if (Memo1.Lines.Text <> '') then
begin
VDESCRIPCION:= Memo1.Lines.Text;
Self.Close();
end
else
begin
showmessage ('No puede dejar el campo vacío.');
end;
end;
procedure DescripcionCreate(Sender: TObject);
begin
if (VDESCRIPCION = '') THEN
begin
Memo1.Enabled:=true;
Modificar.Enabled:=false;
Registrar.Enabled:=true;
Memo1.Lines.Text:='';
end
else
Memo1.Enabled:=false;
Modificar.Enabled:=true;
Registrar.Enabled:=false;
Memo1.Lines.Text:= VDESCRIPCION;
end;
//Salir
procedure Button2Click(Sender: TObject);
begin
Self.Close();
end;
//Procedimiento que controla los botones
procedure Button3Click(Sender: TObject);
begin
Memo1.Enabled:=true;
Memo1.Lines.Text:='';
Registrar.Enabled:=true;
Modificar.Enabled:=false;
end;
Agradezco su colaboración en la detección de la incidencia, sinceramente no encuentro como arreglarlo.