Error de goto afuera

[mjjj]

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.


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

[roman]

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

[marcoszorrilla]

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.