Informática — Informática Diversos

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: