Append por Insert en TDBNavigator
 

Pues estoy con Delphi 2006 y en el TDBNavigator quisiera en vez de hacer un insert hacer un Append, o mejor el tener los dos.

He modificado la propiedad insert por Append en DBCtrls.pas y Borland.VCL.DbCtrls.pas pero no me hace nada.

¿Debo compilarlas de alguna forma o con arrancar Delphi de nuevo basta?

Gracias

Antes que nada, me gustaría saber cual es el punto de querer uno u otro, la diferencia radica únicamente en que el append ingresa el registro al final de la tabla y el insert agrega el registro en el cursor donde se encuentre.

Pero aún con eso yo creo que puedes usar el evento BeforeAction del DBNavigator y agregar un case verificando que boton se presionó, en este caso el nbInsert y escribir funcion Table1.append.

La otra es que indexes tu tabla para que el registro agregado se inserte al final.

Salud OS.

Gracias por tu respuesta.

Es verdad que tengo un index compuesto por dos campos para evitar duplicados.

La diferencia es que tengo un campo TIPO String y un NUMERO Integer.

Me posiciono en el ultimo registro y para añadir uno más al presionar el Boton + del Navigator me hace un Insert y me gustaría fuese un Append.

Quería modificar los botones del DBNavigator y a lo mejor el poder adicionar uno más. Pero eso ya es otro cantar.

indexaré esos dos campos a ver como va.

gracias.

En el caso de tablas indexadas da lo mismo usar un insert o un append ya que el mismo índice posicionará el registro en el lugar adecuado.

Creo que no es necesario que intentes hacer nada al respecto, al menos yo no le veo ninguna utilidad.

Salud OS.