[kryna]

hola amigos

mi problema es el siguiente.. quiero que al ingresar un registro en el sistema no me permita incluir codigos que ya esten incluidos.. osea si trato de inculir un registro cuyo codigo ya se encuente en el sistema me envie un mensage de erros que el registro ya esta en el sistema...

estoy trabajando en delphi y con gestor paradox

este es el codigo que estoy utilizando

encontrado := false;

while (not encontrado) do
begin
if td1.cod1 = clave2 then
encontrado:=true;
end;
if not encontrado then
showmessage ('el registro ya existe')
else
begin
Tb1.Insert;
Tb1.FieldByName('cod1').AsString := Clave;
Tb1.FieldByName('cod2').AsString := clave2;
Tb1.Post;
Tb1.Next;
Tb1.FlushBuffers;
Tb1Close;

Tb2.Insert;
Tb2.FieldByName('cod2').AsString := Clave2;
Tb2.FieldByName('des').AsString := clave4;
Tb2.post;
Tb2.Next;
Tb2.FlushBuffers;
Tb2.Close;

ShowMessage('LOS DATOS FUERON GRABADOS SATISFACTORIAMENTE!!');
end