Вытащить строчку из файла

[Pedro]

Народ помогите, чет я вобще туплю ! У меня есть текстовый файл, в нем 6000-7000 строк, как вытащить из него допустим 233 строку? Нужен самый быстрый способ. Заранее спасибо

[rpy3uH]

есть только один способ. открыть файл. и считывать порции, ну допустим, по 256 байт, обрабатывать символы конца строки #13#10 и считать сколько раз они нам попались. В цикле читаем из файла, обрабатываем, читаем из файла, обрабатываем, читаем из файла, обрабатываем.... в том месте, когда у нас насчиталось 232 переноса начинается 233 строка.

[Deight]

В нете поищи(delphi работа с текстовыми файлами), есть функция которая переносит сразу на нужную строку.

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

есть только один способ. открыть файл. и считывать порции, ну допустим, по 256 байт, обрабатывать символы конца строки #13#10 и считать сколько раз они нам попались. В цикле читаем из файла, обрабатываем, читаем из файла, обрабатываем, читаем из файла, обрабатываем.... в том месте, когда у нас насчиталось 232 переноса начинается 233 строка.

извени но это маразм.

[DeKot]

var  f: TStringlist;
               _stroka: snring;
               N_str: integer;
begin
  f:= TStringList.Create;
  f.LoadFromFile('FileName.txt');
  N_str:= 233;
  _stroka:= f.Strings[N_str];
  Form1.Canvas.TextOut(100,100,_stroka);
  f.Free;
end;

[rpy3uH]

DeKot, сам подумай.
Допустим файл весит 600 МБ. Мы сначала подождём пока всё это не грузанётся в память с диска, потом с памяти будем всё это обрабатывать чтобы получить массив Strings в объекте TStringList. притом обработается весь файл а если нам нужен только 10 элемент, а обработается всё. в данной задаче это неприемлемо.

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

извени но это маразм.

а что тогда не маразм? посмотрим как работает та стандартная функция...

[DeKot]

Вопрос был - читаем внимательно

У меня есть текстовый файл

Тогда байты нам не нужны.("Кто такой байт? Он что Ваш родственник?"
(Ильф и Петров)).Работаем чисто с текстом.

[Deight]

Вопрос на засыпку, кто знает зачем нужна функция seek.

[rpy3uH]

Deight, с тебя тест чтения из файла размером 700 МБ строки под номером 5 от конца. скажешь сколько минут на это тратится.

[Deight]

Где я найду текстовый файл размером 700 метров?

[DeKot]

зачем нужна функция seek.

Для типизированных файлов(и не типизированных, ну вобще для НЕ текстовых )применяют TFileStream.
Там ф-ия seeK устанавливает курсор в нужную позицию
f.seek(<N поз(int)>,<so....(сначала;с конца;с текущего>);
TO ГруЗин - Практически может на практике применяться работа с файлами 600 Мб (Не считаю БД)