Создание индекса

Материал из DRKB

Создание индекса[править | править код]

Ниже приведен код обработчика кнопки 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.


Source: Взято с http://delphiworld.narod.ru
ID: 02625