Foros Club Delphi - Cómo puedo capturar una excepción en delphi?

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Cómo puedo capturar una excepción en delphi? (https://www.clubdelphi.com/foros/showthread.php?t=54363)

Fenix_Dark

16-03-2008 05:41:07

Cómo puedo capturar una excepción en delphi?

Hola, un saludo!!!

Pues verán, estoy usando una variable de tipo TQuery, con la cual hago mis consultas; mi pregunta es como puedo obtener o capturar los errores que me pueda mandar delphi e interpretarlos a mi modo; tengo entendido que se hace con el try... except...; pero no me queda claro; les pongo un ejemplo:

Var
OP : TQuery;
Begin
OP := TQuery.Create(Self);
OP.Close;
OP.SQL.Clear;
OP.SQL:Add('Insert into Tabla(key, nombre) values(''001'', ''Luis'')');
// si el key ya existe, quiero capturar ese error y hacer lo que yo considere
OP.ExecSQL;
end;

Espero haberme explicado, si la pregunta no va aquí, haganme el favor de moverla, gracias.

Hasta pronto!!!

poliburro

17-03-2008 03:13:33

Código Delphi [-]Var
 OP : TQuery;
Begin
  Try
     Try
       OP := TQuery.Create(Self);
       OP.Close;
       OP.SQL.Text :=  'Insert into Tabla(key, nombre) values(''001'', ''Luis'')';
       OP.ExecSQL;
     Finally
         Op.Free;
     End;
  Except
     On Error: Exception Do
        ShowMessage('Error: ' + Error.Message);
  End;
end;

Fenix_Dark

24-04-2008 06:16:58

Mil gracias

Cita:

Empezado por poliburro (Mensaje 273683)

Código Delphi [-]Var OP : TQuery; Begin Try Try OP := TQuery.Create(Self); OP.Close; OP.SQL.Text := 'Insert into Tabla(key, nombre) values(''001'', ''Luis'')';
OP.ExecSQL;
Finally Op.Free; End;
Except On Error: Exception Do ShowMessage('Error: ' + Error.Message);
End;
end;

Muchas gracias por sacarme de la duda; ahi luego me cobras mediante Jessy jejejejeje (Zihuatanejo Gro.)

laukri

29-04-2008 14:17:47

disculpen... me equiboque de hilo... lo siento

La franja horaria es GMT +2. Ahora son las 21:39:30.