как удалить значение в типизированных файлах

[Лукманов Александр]

Есть типизированный файл

TFile = record // (BD.txt)
znach: string [255];
end;

var
BD: file of TFile;
b: TFile;
num: integer;

Как удалить одно из значений файла? Если одному из значений "a" я присваиваю пустое значение,

b.znach:= ' ';
assignfile (BD, ExtractFilePath(paramstr(0)) + '\files\BD.txt');
reset(BD);

seek (bd, filesize (bd));
write (bd, b);
closefile(bd);

то оно всё равно занимает своё место:

assignfile (bd, ExtractFilePath(paramstr(0)) + '\files\BD.txt');
reset (bd);
for Num:=1 to FileSize (BD) do
begin
read (bd, b);
ShowMessage ('Znach=' + b.znach+',');
end;

В итоге к примеру получается: а, б, в, , г,

В общем как удалить. В гугле такую команду не нашёл. Извиняюсь если зря расписывал код.

Уже под сотню сообщений и никак не можете усвоить правила оформления кода тэгом?
Тогда вам и программирование противопоказано.

[Serge_Bliznykov]

Сообщение от Лукманов Александр

В общем как удалить.

А никак! :-) я серьёзно! :-)
Существуют несколько подходов к решению этой задачи.
Например, во многих БД (как простейший вариант - DBF) в каждой записи есть служебной поле DELETED
если в нём служебная отметка ("*") то эта запись считается удалённой.
Таким образом достигается высокая скорость удаления записи.

Следующий подход:
при удалении одной записи - надо просто каждую последующую переписать на место предыдущей (если удаляем 10-ю запись, то 11-ю запись пишем на место 10-й, 12-ю пишем на место 11-й и т.д. до конца файла.
После чего файлу делаем truncate (обрезаем длину файла на размер одной записи).. Это может быть ОЧЕНЬ долго!

и последний способ - сжатие удалённых записей - в новый файл переписываются все записи кроме тех, которые мы удалили (или которые были помечены как удалённые). После успешной записи исходный файл удаляем, новый файл переименовываем в имя исходого файла данных. всё. (BTW, именно так происходит сжатие удалённых записей в DBF файлах).

удачи.

[Лукманов Александр]

Спасибо большое. Первый пример самый классный. А ведь до него можно было и самому допереть.

[Stilet]

Следующий подход:

Есть вариант побыстрее:
Во временный файл переписываем (BlockRead-BlockWrite) скопом все байты до начала записи, потом от начала следующей записи до конца файла. И переименовываем файл.