Проблема с записью-чтением типизированного файла.

[Dennis777]

Есть файл. В определенный момент необходимо сделать дозаписование данных (подозреваю, что ошибка именно здесь). Rewrite - полностью переписывает, поэтому не подходит, делал так:

AssignFile(Fishki2, put+'\Smart Start\regented.dat');
  Reset(Fishki2);
  Seek(Fishki2, filesize(fishki2));
  Recreg2.value19 := hased3;
  Write(Fishki2, Recreg2);
  CloseFile(Fishki2);
  FileSetAttr(put+'\1\1.dat', faHidden);

В таком случае, значение дописывается в файл, но с очень большим промежутком от других данных (если смотреть через блокнот).

Когда возникает потребность считать именно это значение, получается пустое значение. Считываю так:

AssignFile(Fishki2,put+'\1\1.dat');
  Reset(Fishki2);
  Seek(Fishki2, 0);
  read(Fishki2, Recreg2);            
  stroka := Recreg2.value19;
  CloseFile(Fishki2);

При чем, если переменную строка заменить на, к примеру, Recreg2.value18 или любое другое значение, которое было записано изначально (до момента дозаписывания), все считывается идеально.
Как можно исправить эту проблему?

[northener]

В таком случае, значение дописывается в файл, но с очень большим промежутком от других данных (если смотреть через блокнот).

Кто же смотрит бинарные файлы "через блокнот"? Только любители геморроя.

Когда возникает потребность считать именно это значение, получается пустое значение. Считываю так:

Вот интересно. "Именно это значение" сначала дописываешь в конец файла. А считывать пытаешься в начале файла.

[Stilet]

необходимо сделать дозаписование данных

А файл точно не текстовый? Для текстового дозапись делается с открытием через Append() а не Reset().

[Slym]

Давно рекомендовано на TFileStream перейти...