Back to the TextFile

[Albenous]

Люди, как в текстовом файле (без вывода в Memo) определить номер строки?
т.е. задача сводится к тому, чтобы определить i-ю стоку.

[ClauZzz]

var
f :TextFile;
s :string;
index : integer;
begin
AssignFile(f);
Reset(f);
index:=0;
repeat
ReadLn(f, s);
if s = {ваше условие} then
exit;
inc(index);
until EOF(f);
end;

index - номер нужной строки

[Romanus]

2Albenous А с помощью чего ты читаешь(будешь читать) из файла

[Albenous]

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

2Albenous А с помощью чего ты читаешь(будешь читать) из файла

Вопрос задан как-то некорректно... Читать будет моя программа... Обычный текстовик, в котором строчки чисел или слов.

[Lynx]

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

Вопрос задан как-то некорректно...

Вопрос задан грамотно, можно читать из файла паскалевским способами (Read(-ln),BlockRead) и/или потоками Tstream, для разных способов свои условия... Хотя можно еще и QSearch... Но это отдельная тема

[AVer]

Люди, как в текстовом файле (без вывода в Memo) определить номер строки?
т.е. задача сводится к тому, чтобы определить i-ю стоку.

Выполни ReadLn i раз.

[Albenous]

Выполни ReadLn i раз.

Пробовал. Но я работаю с текстовиком по полной. т.е. нашел i-ю строку, с (i+1)-й делается то-то, вернулсе в начало, опять ищу чего-то и т.д. мало того, каждая строка - набор чисел и слов (в слысле каждый набор заков (через пробел) - какое-то значение). В представленном выше примере это немного не то. Но номер строки определяется верно.

можно читать из файла паскалевским способами (Read(-ln),BlockRead) и/или потоками Tstream, для разных способов свои условия... Хотя можно еще и QSearch... Но это отдельная тема

поток там не в тему, с QSearch я вообще не работал. И теперь я понял, что имел ввиду Romanus, когда спашивал. Паскалем беру. Только им.

[Romanus]

Используй Seek(номер) для перемещения по файлу. А вообще если пользуешь по полной создавай буфер и в него записывай, редактируй а в конце работы сохраняй.