Скачать: CL | DM;

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

← →
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. Производительность можно сказать нуль, но нечего, и так сойдет

---

← →
raidan ©   (2004-01-01 20:01) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c