Имеется известная ошибка в Reset: если вы используете это в открытом текстовом файле, поля буфера файла _не_ сбрасываются в начало буфера. Вы можете обойти это, используя CloseFile, AssignFile и Reset вместо использования только Reset или "вручную" сбрасывая буфер:
Reset( filevar ); with TTextRec(filevar) do SetTextBuf(filevar, BufPtr^, BufSize); |
- Peter Below [000961]