Advantage TDataSet Descendant
Removes the key built from the current record from the custom index order.
procedure AdsDeleteCustomKey (strTag : string);
|
strTag |
Tag name of an open index. |
AdsDeleteCustomKey will remove the key corresponding to the current record from the custom index order. If a key for this record was not added to the index, AdsDeleteCustomKey will not raise an exception.
Note When the index is shared, deleting a custom key will fail if the record is locked by another application. If the index is opened exclusively, custom keys can be deleted even when the record is locked by another application. To open an index exclusively, open the table exclusively or open the table in shared mode and create a custom index without closing it.
AdsTable1.Exclusive := TRUE;
AdsTable1.Active := TRUE;
AdsTable1.AdsCreateIndex( '', 'Tag1', 'FirstName', '', '', [ optCUSTOM ] );
{ the tag1 index contains no records }
AdsTable1.First;
AdsTable1.AdsAddCustomKey( 'Tag1' );
{ the tag1 index contains one record }
AdsTable1.AdsDeleteCustomKey( 'Tag1' );
{ the tag1 index contains no records }
AdsTable1.IndexName := 'Tag1';
Adstable1.First;