[nixon232]

Не уверен, что угадал с веткой. Задача: прочитать с конца файл, найти данные - уйти. Все хорошо, но в какой то момент файл читается не с конца. такое ощущение, что достигнут максимум fstr.count.

Код:

fs:=TFileStream.Create(fn,fmShareDenyNone);
fs.Position:=0;
fstr:=TStringList.Create;



Fstr.LoadFromStream(fs,TEncoding.Default);
fs.Free;
//ShowMessage(IntToStr(fstr.Count));
   for I := fstr.Count-1 downto 0 do
   begin
     Line:=fstr[i];

Сам файл не большой вроде. Как лучше получить Line[i] в таком случае?
В момент ошибки Fstr.count= 7115 всего-то. сам файл в это время 140к строк