|
Быстро удалить запись из файла можно перемещением
т.е. последнюю запись в файле переписывают на место удаляемой, а затем уменьшают длину файла на одну запись.
В вашем примере так и сделано.
Только удаляется следующая за нужной запись seek(doum,i).
Последнюю запись условие if i>filesize(duom)-1 не даст удалить.
Люди привыкли все считать начиная с 1 , а записи в файле считаются с 0.
второй reser(doum) лишний.
|