Ребят, хотяб примеров простых дайте =)
Ладно, тогда давайте я напишу как я понимаю в коде а вы тогда поправьте если гдето не прав, ок
?
Посидев пару часиков за мануалами к делфи вроде как понял что можно коечто намутить при помощи seek и еще одной функции truncate
Цитата:
procedure TForm1.Button1Click(Sender: TObject); //пусть будет удаление по кнопке 1
//Переменная ftest, процедуры writetest и readtest описаны в модуле
begin
//n = номер удаляемой записи, начиная с 0
seek(ftest, filesize(ftest) - 1);
readtest
seek(ftest, n - 1);
writetest
//когда запись уже находиться в конце файла, я ее отсекаю
seek(ftest, filesize(ftest) - 1);
truncate(ftest);
|
Вроде как то так, но возникает ошибка I/O((