Código Delphi [-] if tblDatos.Locate ('Codigo', edtCodigo.Text, []) Then Begin Update.... end Else Begin Append end
if tblDatos.Locate ('Codigo', edtCodigo.Text, []) Then Begin Update.... end Else Begin Append end