вопрос про CDX

← →
sir_musatov (2002-04-04 16:06) [0]

мне надо поставить в ДБФе пометку о наличии индексного файла CDX
убираю я ее так:
\\дело в том что мне этот код даи но не объяснили

Buf := 3; FileHandler:=FileOpen(TableN,fmOpenWrite); try FileSeek(FileHandler,28,0); FileWrite(FileHandler,Buf,1); // убираем пометку CDX Buf :=0; FileSeek(FileHandler,0,0); FileWrite(FileHandler,Buf,1); // убираем пометку CDX finally FileClose(FileHandler); end;

← →
deleon © (2002-04-04 16:13) [1]

var
Buf: Byte;
begin
Buf := 1;
FileHandler := FileOpen(FileName, fmOpenWrite);
try
FileSeek(FileHandler, 28, soFromBeginning);
FileWrite(FileHandler, Buf, 1); // ставим пометку CDX
finally
FileClose(FileHandler);
end;
end;

Что здесь не понятно ? :)))

вопрос про CDX Найти похожие ветки