Типизированные файлы прямого доступа.

[Nice Plant]

В типизированном файле прямого доступа исключить все четные компоненты.

Как???

[Alt]

Ну, например, можно их по очереди исключить, не?

[Nice Plant]

а как же курсор сдвига в файле???

[psycho-coder]

А чем Seek Вас не устраивает?

[Nice Plant]

Он то устраивает только как это все реализовать пошагово???

[Stilet]

исключить все четные компоненты.

т.е. физически их оттуда удалить?

[Nice Plant]

да. возможно.

[Serge_Bliznykov]

существует ТРИ основных способа удаления элементов (записей) из файла.

1) физически записи остаются не месте, но в каждой записи присутствует признак ISDELETED() - что данная запись удалена.
При работе с файлом в САМОЙ ПРОГРАММЕ такие записи не считываются, не обрабатываются, не выводятся пользователю и т.д.

2) если нужно получить файл, в котором физически нет удалённых записей, тогда,
открываем исходный файл на чтение,
открываем временный файл на запись,
переписываем во временный файл те записи, которые должны остаться.
После окончания (когда исходный файл закончился), закрываем оба файла.
Перименовываем исходный файл в архивную копию (например, Исходный.bak)
Переименовываем временный файл в файл, имеющий исходное имя.
Если всё прошло успешно, то резервную (архивную) копию можно удалить. (а лучше, конечно, оставить!)

3) самый муторный, долгий и крайне не надёжный (к сбоям), но зато позволяет обойтись без второго файла:
Открываем исходный файл.
Читаем, если натыкаемся на элемент, который надо удалить, то:
запоминаем позицию в файле
в цикле до конца файла переписываем все оставшиеся записи на место удаляемой
усекаем (truncate(f) ) файл на последней записи
возвращаемся (seek) и продолжаем цикл чтения с того места, где удаляли запись.


я бы рекомендовал Вам второй способ, как самый быстрый, наглядный, простой и надёжный!

[Nice Plant]

program Laba2;{Files_pr_dostup}
uses crt;
var
n,i,p,q : byte;
f : file of byte;
m :array [1..n] of byte;
begin
clrscr;
assign (f,'demo.dat');
rewrite (f);
for q:=1 to 20 do
begin
i:random(100);
write (f,i);
end;
writeln;
n:0;
repeat
seek (f,n);
read (f,p);
n:=filepos (f);
seek (f,2n-1 );
write (f,p);
n:=filepos (f);
until i=n;
close (f);
reset (f);
while not eof (f) do
begin
read (f,p);
write (p:4);
end;
end.


В чем ошибка.????