pues si es algo cansado leer todo el código y tratar de adivinar que es lo que sería mejor... en fin, supongo que una leída a
la guía de estilo (como menciona el_barto) sería muy conveniente.
Lo único que te puedo recomendar es que al utilizar el
try, no captures todos los errores en el except ya que de esa manera como l o haces no sabes realmente cuál fue el problema. Y además, utiliza la clásula
raise, al menos hasta que sepas como controlar ese error. Te recomiendo que
leas este hilo. En particular :
Cita:
Publicado por Roman
Por otra parte es también un error presuponer, como ya lo indicó mamcx que el código va a fallar por una sola posible causa. Para algo está la construcción:
Código Delphi:
try
...
except on EErrorQueSeComoManejar do begin
.....
end;
end;
|
En pocas palabras, primero hay que definir exactamente por que no se conecta, luego tal vez alguien te pueda ayudar a resolver ese problema en específico.