Analise:Table1.SetRangeStart;Table1.FieldByName('Codigo'):=100;(*Table 1 Codigo.asinteger := 100

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