[cybermad]

Здравствуйте!

Существует текстовый файл. В файле Н-строк. Нужно считать ПОСЛЕДНИЕ 10 строк и вывести в ListView. Как взять последние строки?

Спасибо!

[Bargest]

Например, читать в циклический буфер из 10 строк. Потом вывести с позиции, на которой остановились.

[Страдалецъ]

Ну можно немного иначе поступить. Открыть файл как набор байт. Метнуться в конец и двигаясь к началу считать символы #13, попутно формируя строки.

[angvelem]

Зачем? Читаем в StringList и берём последние 10 строк и никакого извращения.

[lmikle]

Сообщение от angvelem

Зачем? Читаем в StringList и берём последние 10 строк и никакого извращения.

Ага, а если файл пару гигабайт "весит".
Тут надо от задачи смотреть.
Если файл маленький, то проще считать весь целиком. Если большой, то зависит от конкретной задачи - как часто надо это делать и можно ли файл держать открытый...

[cybermad]

Сообщение от angvelem

Зачем? Читаем в StringList и берём последние 10 строк и никакого извращения.

спасибо! так и сделал. файл с содержимым в 78000 строк считывается на ура за 300 мсек.

[lekssp]

Код:

var fv: text;
     i, l:integer;
s:string;
begin
assign(fv, '1.txt');
reset(fv);
l:=0;
while not eof(fv) do begin inc(l); readln(fv); end;
if l>=11 then begin
for i:=1 to l-11 do readln(fv);
for i:=l-10 to l do begin readln(fv,s); memo1.lines.add(s); end;
end
else for i:=1 to l do begin readln(fv, s); memo1.lines.add(s); end;
end.

вроде так

[angvelem]

Сообщение от lekssp

вроде так

Почти, только здесь читается после 10 строки.

[PhoeniX]

А линуксовая тулза tail прекрасно делает такое и с 10гб файлами
Может, стоит посмотреть её код?