Создание индекса
Falk0ner, вс, 06/07/2008 - 15:34.
Автор: OAmiry (Borland)
Ниже приведен код обработчика кнопки 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;
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.
Взято с http://delphiworld.narod.ru
Отправить комментарий