[Lazarus-es] try...except

[hfiandor]

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

 

------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20170621/590200a6/attachment.html>