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:

a

Table1.SetRangeEnd;

b

Table1.KeyExclusive := False;

c

Table1.FieldByName('Codigo'):=100; (*Table1Codigo.asinteger := 100 *)

d

Table1.FieldByName('Codigo'):=200; (*Table1Codigo.asinteger := 200 *

Próxima Questão

Reiniciar Desempenho