[Lazarus-es] try...except

[Iván]

Hola Héctor
Creo que entre el except y el on... No puedes meter nada.
Abrazos.
Pd tengo tarea pendiente contigo


El 22 jun. 2017 1:30, "hfiandor via Lazarus-es" <
lazarus-es en lists.lazarus-ide.org> escribió:

> Estimados listeros:
>
>
>
> Tengo en un procedure lo siguiente:
>
>   try
>
>     if fdm.tProSerNeg1.Active=true then fdm.tProSerNeg1.Active:=false;
>
>     fdm.tProSerNeg1.FileName:=camino_BD + '\Clasificadores.db';
>
>     if fdm.tProSerNeg1.Active=false then fdm.tProSerNeg1.Active:=true;
>
>     Log('ProSerNeg1 está activa.');
>
>   except
>
>     Log('Error en activar ProSerNeg1.');
>
>     On E :Exception do
>
>     begin ShowMessage(E.Message); end;
>
>   end;
>
>
>
> Deseo conocer cuál es el error.
>
>
>
> Cuando trato de compilar, me dice que “On not found..” o algo parecido.
>
>
>
> Leí una página web sobre Try…except y no me dice mucho más que esto.
>
>
>
> Evidentemente me falta algo, que no sé qué es. O quizás he redactado mal
> el error handling.
>
>
>
> Les agradecería alguna ayuda para aprender y salir del apuro.
>
>
>
> Saludos
>
> Ing. Héctor F. Fiandor Rosario
>
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus-ide.org
> http://lists.lazarus-ide.org/listinfo/lazarus-es
>
>
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20170622/9409dbe4/attachment.html>