Como procesar la excepción de violación de clave?

[dec]

Hola,

Te ha faltado decir la clase de excepción que se levanta, pero, en todo caso, conociéndola, pienso, si no estoy equivocado completamente, en que podría hacerse algo parecido a esto:

Código Delphi [-]
{...}
 begin
   {...}
   try
 
     {
       Lo que tengas que hacer que
       pueda causar una excepción
     }
 
   except
 
     on E : EClaseExcepcion do begin
 
       // Se produjo una excepción
       // del tipo que esperábamos
       
     end;
 
     on E : Exception do begin
 
       // La excepción producida es
       // otra, no la que pensamos
 
     end;
   end;
 end;

¿Metí la pata demasiado? ¿Se notó mucho?

[ContraVeneno]

Código Delphi [-]
try 
  ExecSQL; //Instrucción insert
  {Tambien podría ser E:ESDEngineError o E:ESDMssError 
  dependiendo del rango de errores que se quieran capturar}
  except on E:Exception do 
    if  (E is EDBEngineError) then 
      with EDBEngineError(E).Errors[0] do 
         if ErrorCode = 9729 then 
          MessageBox(frmInicial.Handle,'Llave duplicada.','Error',MB_ICONERROR);
end; //Fin try

algo que hice alguna vez fue:

Código Delphi [-]
try
 //instrucción insert
except on E:Exception do 
  if (E is EDBEngineError) then
   with EDBEngineError(E).Errors[0] do 
    if ErrorCode = 9729 then
      //instrucción update
end;//Fin try

y me gustaría su opinión al respecto, es decir, tratar de insertar la información, y si hay una violación de llave, entonces actualizar la información, ¿es correcto?, ¿válido?, ¿óptimo?

[Neftali [Germán.Estévez]]

Creo que ya está resuelto, pero hace un par de días salió éste hilo:
http://www.clubdelphi.com/foros/showthread.php?t=25175