Работа с файлами

← →
Lony © (2004-01-01 17:36) [0]

Надо удалить одну строку типизированного файла. Какой алгоритм сего действия? Как я понимаю, нет же спецфункции для этой операции..? Можно конечно все нижележащие элементы удаляемой строки как бы передвинуть на одну строку вверх копированием, но что тогда делать с последней строкой? Она же останется. Можно создать новый файл. А может есть другой способ?

← →
default © (2004-01-01 18:52) [1]

"строку типизированного файла"
у типизированных файлов нет строк в общепринятом понимании

← →
jack128 © (2004-01-01 19:07) [2]

var
f: file of TMyType;
Buffer: TMyType;
i : integer;
begin
...
for i := DeleteIndex + 1 to FileSize(f) - 1 do
begin
Seek(f, i);
Read(Buffer);
Seek(f, i - 1);
Write(Buffer);
end;
SetEndOfFile(TFileRec(f).Handle); // не знаю как это на стандартном паскале
end; //нужные проверки сам допишешь
P.S. Производительность можно сказать нуль, но нечего, и так сойдет

Как вариант - очищать эту запись ("строку" в вашем понимании), а после очистки 5,10,50 (сколько угодно) записей пересобрать файл (удалить пустые записи).
ИМХО так побыстрее будет, особенно для крупных файлов :)

Работа с файлами Найти похожие ветки