Форум: "Базы";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];
Внизвопрос про 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;
Что здесь не понятно ? :)))
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c