Validar registro antes de insertar

[jefferson]

hala pana.
en estos dias tenia problemas paresidos al que planteas.

y lo que hice en compañia de mis amigos fue:
hacer un procedimiento igual al insertar con la mismas condicion para poder insertar, pero con otra variable.

y en el bonton de insertar se pone una condicion que no permita que la insercion sea igual a la que ya este, en este caso seria el nombre.

ejemplo:

Código Delphi [-]
procedure TFrmcamaradecomercio.bibinsertarClick(Sender: TObject);
var
corrovorar:string;
begin
 corrovorar:=Ednombre.Text;
 pos:=empresa.repetirDato(corrovorar);
if pos>0 then
begin
    empresa.insertar(Ednombre.Text,EdNit.Text,EdPropietario.Text,EdDireccion.Text,EdTelefono.Text);
    biblimpiarclick(sender);
 end
 else
    ShowMessage('este arreglo ya esxiste');
end;

sin olvidar que antes se debe hacer el procedimiento para insertar, (preferiblemente en una unidad de codigo aparte), al igual que la incersion de validad que es = solo con otra variable.

saludos.