[NIkandNIc]

Здравствуйте.
У меня есть файл с записями (test.db) допустим в нем 5 записей, как мне в нем отредактировать или удалить допустим 3тью запись, если потребуеться код программы то говорите выложу.

Пробывал делать вот так

Код:

Var
test:TTest;
begin
AssignFile(F,'tests.db');
Reset(F);
read(F, test);
Seek(F, j);
test.pole := grid1.Cells[1,0];
Seek(F, j);
write(F, test);
CloseFile(F);

Но программа добавляет мне новую запись а не изменяет старую.