Código Delphi [-] // Datos : Form de tipo DataModule // ItemsContrato : Componente JvMemoryData // vAsi.Text : Edit, donde se ingresa un valor numerico If Datos.ItemsContrato.Locate('Ite_Id',StrToInt(vAsi.Text),[]) Then // Sentencia 1 Else // Sentencia 2 End;
// Datos : Form de tipo DataModule // ItemsContrato : Componente JvMemoryData // vAsi.Text : Edit, donde se ingresa un valor numerico If Datos.ItemsContrato.Locate('Ite_Id',StrToInt(vAsi.Text),[]) Then // Sentencia 1 Else // Sentencia 2 End;