Ver Mensaje Individual
  #9  
Antiguo 03-12-2005
kman kman is offline
Miembro
 
Registrado: dic 2005
Ubicación: República Dominicana.
Posts: 67
Reputación: 19
kman Va por buen camino
Por fin lo solucioné:
Código Delphi [-]
 procedure form1.Button1Click(Sender: TObject);
 var field: tfield;
 VAR texto: string;
 begin
 texto:=Edit1.Text;
 if TABLA.Locate('CAMPO',texto,[]) then begin
 showmessage('DATO YA  EXISTE');
 end else begin
 tabla1.Edit;
 Field := Tabla1.FieldByName('CAMPO');
 Field.AsString := Edit1.Text;
 end;
 end;

Si tienen algún comentario sobre este código, se recibirá con mucho agrado, ah y gracias por los comentarios anteriores.
Responder Con Cita