<div dir="auto"><div dir="auto">Hola Héctor</div>Creo que entre el except y el on... No puedes meter nada.<div dir="auto">Abrazos.</div><div dir="auto">Pd tengo tarea pendiente contigo</div><div dir="auto"><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">El 22 jun. 2017 1:30, "hfiandor via Lazarus-es" <<a href="mailto:lazarus-es@lists.lazarus-ide.org">lazarus-es@lists.lazarus-ide.org</a>> escribió:<br type="attribution"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div lang="ES-MX" link="#0563C1" vlink="#954F72"><div class="m_-2955940694273241355WordSection1"><p class="MsoNormal"><span lang="ES">Estimados listeros:<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES"><u></u> <u></u></span></p><p class="MsoNormal"><span lang="ES">Tengo en un procedure lo siguiente:<u></u><u></u></span></p><p class="MsoNormal"><span lang="EN-US">  try<u></u><u></u></span></p><p class="MsoNormal"><span lang="EN-US">    if fdm.tProSerNeg1.Active=true then fdm.tProSerNeg1.Active:=false;<u></u><u></u></span></p><p class="MsoNormal"><span lang="EN-US">    </span><span lang="ES">fdm.tProSerNeg1.FileName:=<wbr>camino_BD + '\Clasificadores.db';<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">    </span><span lang="EN-US">if fdm.tProSerNeg1.Active=false then fdm.tProSerNeg1.Active:=true;<u></u><u></u></span></p><p class="MsoNormal"><span lang="EN-US">    </span><span lang="ES">Log('ProSerNeg1 está activa.');<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">  except<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">    Log('Error en activar ProSerNeg1.');<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">    </span><span lang="EN-US">On E :Exception do<u></u><u></u></span></p><p class="MsoNormal"><span lang="EN-US">    begin ShowMessage(E.Message); end;<u></u><u></u></span></p><p class="MsoNormal"><span lang="EN-US">  </span><span lang="ES">end;<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES"><u></u> <u></u></span></p><p class="MsoNormal"><span lang="ES">Deseo conocer cuál es el error.<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES"><u></u> <u></u></span></p><p class="MsoNormal"><span lang="ES">Cuando trato de compilar, me dice que “On not found..” o algo parecido.<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES"><u></u> <u></u></span></p><p class="MsoNormal"><span lang="ES">Leí una página web sobre Try…except y no me dice mucho más que esto.<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES"><u></u> <u></u></span></p><p class="MsoNormal"><span lang="ES">Evidentemente me falta algo, que no sé qué es. O quizás he redactado mal el error handling.<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES"><u></u> <u></u></span></p><p class="MsoNormal"><span lang="ES">Les agradecería alguna ayuda para aprender y salir del apuro.<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES"><u></u> <u></u></span></p><p class="MsoNormal"><span lang="ES">Saludos<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES">Ing. Héctor F. Fiandor Rosario<u></u><u></u></span></p><p class="MsoNormal"><span lang="ES"><u></u> <u></u></span></p></div></div><br>______________________________<wbr>_________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus-ide.org">Lazarus-es@lists.lazarus-ide.<wbr>org</a><br>
<a href="http://lists.lazarus-ide.org/listinfo/lazarus-es" rel="noreferrer" target="_blank">http://lists.lazarus-ide.org/<wbr>listinfo/lazarus-es</a><br>
<br></blockquote></div></div>