Error de goto afuera
 

Hola tengo el siguieten problema.

Estoi insertando un registro en una base de dato, utilizo el componente TIBSql, el problema es que tengo un campo de tipo Date, y puede ocurrir que lo que este ingresando no sea una fecha valida.

utilizo este codigo.

Código Delphi [-]
if (stringgrid2.Cells[2,I]) <> '' then
try
ibsql2.ParamByName('fecha').asstring:=stringgrid2.cells[2,I]
except
                On E: Econverterror Do
                   Begin
                        form1.IBTransaction1.Rollback;
                        goto afuera;
                   end;
end
else
ibsql2.ParamByName('fecha').asstring:='';

el problema es que me dice que:
"goto afuera leads into or out of TRY statement"

Creo que con ese codigo se pudiese arreglar....
Que puedo hacer para arregarlo

Gracias

Pienso que basta que quites el goto. En caso de que ocurra la excepción, el flujo del código seguirá, luego del RollBack, a la línea que sigue al código que exhibes.

// Saludos

Tambien puedes utilizar una variable Boolean iniciarle a True y en caso de excepción ponerla a False.

Luego al salir del Try puedes analizar esta variable y en caso de resultar falsa poner en marcha tu código.

Un Saludo.