[Lazarus-es] try...except

[Jose Antonio Cuello]

Prueba con 
try 
except 
on E: Exception do 
begin 
Log('Error en activar ProSerNeg1.'); 
ShowMessage(E.Message); 
end; 
end; 


De: "Spanish version of Lazarus List" <lazarus-es en lists.lazarus-ide.org> 
Para: "Spanish version of Lazarus List" <lazarus-es en lists.lazarus-ide.org> 
CC: "hfiandor" <hfiandor en ceniai.inf.cu> 
Enviados: Jueves, 22 de Junio 2017 1:30:33 
Asunto: [Lazarus-es] try...except 



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/65fcb3d5/attachment-0001.html>