Analise: Table1.SetRangeStart; Table1.FieldByName('Codigo'):=100;(*Table 1 Codigo.asinteger := 100 *) Table1.KeyExclusive := False; Table1.SetRangeEnd; Table1.FieldByName('Codigo'):=200;(*Table 1 Codigo.asinteger := 200 *) Table1. KeyExclusive := True; Para que o procedimento DELPHI acima se complete, a instrução Table1.ApplyRange; deve ser inserida imediatamente após a instrução:
