Создание индекса во время выполнения программы

Советы » Записи, индексы, поля, закладки » Создание индекса во время выполнения программы

Ниже приведен код обработчика кнопки OnClick, с помощью которого строится индекс:

procedure

TForm1.Button1Click(Sender: TObject); var

bActive, bExclusive: Boolean; begin

bActive := Table1.Active; bExclusive := Table1.Exclusive; Table1.IndexDefs.Update; with

Table1 do

begin

Close; {таблица dBASE должна быть открыта в монопольном (exclusive) режиме} Exclusive := TRUE

; Open; if

Table1.IndexDefs.IndexOf('FNAME') <> 0 then

Table1.AddIndex('FNAME', 'FNAME', []); Close; Exclusive := bExclusive; Active := bActive; end

; end

;

Если вы собираетесь запускать проект из Delphi, пожалуйста убедитесь в том, что свойство таблицы Active в режиме проектирования установлено в False.

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com