Validar clave unica en Paradox

[dchaparro]

Bueno, me sorprende la rapidez de las respuestas, creo que esta contestada la pregunta asi que voy a probar las soluciones enunciadas. Me inclinaría por el try-except (expuesto por Roman) para manejar errores, que nunca lo tuve en cuenta y debe ser muy util en muchas ocaciones.
Muchas gracias.

[roman]

Entonces te recomiendo una lectura del apartado de excepciones en la ayuda de Delphi para que tengas una idea más clara de cómo funcionan. Para el caso particular de excepciones del bde te recomiendo este mensaje del compañero marcoszorrilla en donde da un ejemplo muy claro del uso del evento OnPostError y que puedes aplicar a la técnica del try-except:

try
  Table1.Post;
except
  on E: EDBEngineError do
    case E.Errors[0].ErrorCode of
      eKeyViol: { maneja excepción 'Key Violation' }
      eRequiredFieldMisssing: { Maneja excepción 'Required Field Missing }
      ...
      etc
    end;
end;

Según las circunstancias puede ser más recomendable utilizar el evento OnPostError ya que de esa manera centralizas el manejo de este tipo de excepciones de tal suerte que la excepción se manejará independientemente del lugar desde donde se hace el 'post'. El uso de try-except te obliga a colocar el manejo de la excepción en todos las partes de la aplicación en donde se haga un 'post' a la tabla en cuestión.

// Saludos

[dchaparro]

Voy a insistir con un punto mas en este tema. Hice try-except para manejar el error cuando hago Table.Post, donde le aviso ShowMessage('El codigo ya existe'); o algo asi y funciona de maravillas, pero cuando ejecuto dentro de Delphi, la ejecucion se interrumpe y me da el error ('Key violation' en este caso) y me dice 'Run o Step to continue' etc.. Me gustaria saber si esto es normal, o sea a pesar de que yo manejo el error, Delphi interrumpe la ejecucion igual.
Cabe aclarar que si ejecuto el programa fuera de Delphi, no hay ningun, problema no se interrumpe la ejecucion y queda mi reluciente mensaje en la pantalla
Desde ya muchas gracias.

[roman]

Empezado por dchaparro

Me gustaria saber si esto es normal, o sea a pesar de que yo manejo el error, Delphi interrumpe la ejecucion igual.

Es perfectamente normal. Por defecto, al trazar una aplicación Delphi lanzará él mismo la excepción antes de que tu código la detecte a fin de que el trazado sea más fácil (pues al detenerse el editor se coloca automáticamente en la línea que genera la excepción).

Puedes deshabilitar este comportamiento en el menú Tools|Debugger Options|LanguageExceptions, deshabilitando la casilla "Stop on Delphi Exceptions"

// Saludos