Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c