[nixon232]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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к строк