Переиндексация таблиц Paradox

← →
Alex1980 (2002-10-15 08:41) [0]

Как переиндексировать программно таблицы Paradox?

← →
Anatoly Podgoretsky (2002-10-15 09:05) [1]

dbiRegenIndexes

← →
Varibrus (2002-10-15 10:37) [2]

Посмотри статью Paradox File Corruption в http://www.thedelphimagazine.com/samples/Paradox/paradox.htm#TOP

← →
Ильдар (2002-10-24 16:28) [3]

Я сделал себе процедуру для унифицированного открытия таблиц, в т.ч. и с переиндексацией:

TYPE
TTernary = (NotKnow, No, Yes); // тройственный выбор: не знаю, нет, да

procedure tblOpen(Table: TTable; // Таблица
aIndex: array of String; // Списируемых полей (первое - ключевое)
bReindex: TTernary = NotKnow; // Переиндексировать
bExclusive: TTernary = NotKnow); // Режим открытия
// Открыть таблицу данных
var
i: Integer;
IO: TIndexOptions;
IndexName: String;
begin
Table.DatabaseName:= GetCurrentDir;
If bReindex = NotKnow then bReindex:= DatabaseReindex;
If bReindex = Yes then
begin
Table.IndexDefs.Update;
If Table.IndexDefs.Count > 0 then Table.DeleteIndex(Table.IndexDefs[0].Name);
IO:= [IxPrimary];
IndexName:= "";
For i:= 0 to Length(aIndex) - 1 do
begin
Table.AddIndex(IndexName, aIndex[i], IO);
IO:= [IxCaseInsensitive];
IndexName:= Char(i + Ord("A"));
end;
end;
If bExclusive = NotKnow then bExclusive:= DatabaseExclusive;
Table.Exclusive:= bExclusive = Yes;
Table.Open;
end;

Пример использования:tblOpen(tblCard, ["Card", "Material;Price", "MaterialName;Price",
"Repman;Material;Price", "Repman;MaterialName;Price",
"RepmanName;MaterialName;Price"]);

DatabaseReindex и DatabaseExclusive - глобальные переменные для общих параметров открытия множества таблиц.

Переиндексация таблиц Paradox Найти похожие ветки