Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.27;
Скачать: CL | DM;

Вниз

Ну вот и столкнулся :(   Найти похожие ветки 

 
HAZARD ©   (2002-05-04 00:55) [0]

Есть база, как мне создать для нее индексный файл на основе имеющихся данных?
делал так:
...
Active := False;
IndexDefs.Clear;
with IndexDefs.AddIndexDef do
begin
Name := "";
Fields := "IMA";
Options := [ixPrimary];
end;
IndexFiles.Add("Table.MDX");
Active := true;
...
не получается и все тут.
Искал и нигде подобного примера найти не мог.
Кто знает помогите пожалуйста, если можно работающим примером, что в голове отложилось. Заране спасибо!


 
Derr   (2002-05-04 10:01) [1]

if book.Active then book.Close;
CorrectDBF("book.dbf");
if FileExists("book.cdx") then
DeleteFile("book.cdx");
book.Exclusive := TRUE;
book.Open;
//kolzap:=book.RecordCount;
DbiPackTable( book.DBHandle, book.Handle, nil, nil, False );
book.Close;
Book.AddIndex("Book", "dtos(datez)+timez+fam+car", [ixExpression]);
Book.AddIndex("Bookf", "fam+dtos(datez)+timez+car", [ixExpression]);
-----------------------------
procedure CorrectDBF(DBFFileName : String);
var
FileHandler : Integer;
Buf : Byte;
begin
buf:=0;
FileHandler:=FileOpen(DBFFileName,fmOpenWrite);
try
FileSeek(FileHandler,28,0);
FileWrite(FileHandler,Buf,1); // Обнуляем признак наличия CDX-файла
finally
FileClose(FileHandler);
end;
end;


 
HAZARD ©   (2002-05-04 10:16) [2]

Получилось !!! Спасибо !!! Я Спасен !!! :)))



Страницы: 1 вся ветка

Текущий архив: 2002.05.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
14-88609
--Reporter--
2002-04-19 09:30
2002.05.27
Создан ли какой-нибудь клиент под эту конференцию?


1-88441
Vicosss
2002-05-15 09:03
2002.05.27
Подсчёт дней


1-88443
Дмитрий757567
2002-05-17 13:59
2002.05.27
HALT - НЕ НОРМАЛЬНЫЙ


4-88689
Andery G
2002-03-25 18:25
2002.05.27
как отследить запуск приложения


3-88364
Pavel_mal
2002-05-01 16:59
2002.05.27
Отчет для таблицы