Key violation. Continuar con siguiente registro

[marto]

Código Delphi [-]
   while not QEasy.Eof do
   begin
      TCT_TOTAL.Append;
      for i := 0 to QEasy.Fields.Count - 1 do
          TCT_TOTAL.Fields[i].Value := QEasy.Fields[i].Value;
      try
        TCT_TOTAL.Post;
      except
        on E: EDatabaseError do
        begin
          if Pos('KEY VIAOLATION', E.Message) > 0) then
          begin
            Texto := 'Duplicado el registro con ID: ' + QEasy.FieldByName('ID_CT').AsString;
            Application.MessageBox(PChar(Texto), 'Registro duplicado',mb_Ok+MB_ICONEXCLAMATION);
            TCT_TOTAL.cancel;
          end else
            raise;
        end;
      end;
      QEasy.Next;
   end;

Lo que quieren decir los compañeros es esto... y cárgate el OnPostError

[CHiCoLiTa]

Pues si que soy duro de mollera Ya lo decia mi madre
No lo veia, y lo tenia hecho. Ahora que me has abierto los ojos marto, ya entiendo todo

Al hacer yo mismo el try except, controlo directamente la excepcion, pero si lo hago en el OnPostError, el programa ya lo ha detenido haciendo directamente el raise. Es mas o menos correcto este razonamiento?

Muchas a gracias a todos

[marto]

Empezado por CHiCoLiTa

Es mas o menos correcto este razonamiento?

Po sí, el razonamiento es ese

[Alejandro Ruiz]

Yo tengo un problema parecido, un mensaje de SQL de error al duplicar la llave primaria, sin embargo trato de cachar el error en el OnPostError y no me lo toma en cuenta , ayudenme!!!!