![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
|
|
#1
|
|||
|
|||
|
Otra opcion para manteniendo el try except es la utilización de raise
Código:
try
msBDTmP.Connected:=true;
except
raise;
end;
Otra alternativa para visualizar el error y mostrar un mensaje al usuario algo más bonito, es capturarlo Código:
var
str : string;
begin
......
try
msBDTmP.Connected:=true;
except
on E: Exception do
begin
str := 'Error conectado. Mensaje de error: ' + E.Message;
Application.MessageBox(PChar(str), 'Atención', MB_OK);
end,
end;
end,
|
![]() |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|