textfile

← →
Igor Bykov (2004-01-15 12:41) [0]

Открываю текстовый файл читаю построчно. Как запомнить то или иное положение курсора, чтоб потом вернуться к той или иной строке. FilePos меня смущает свой работой по байтам.

← →
Brahman (2004-01-15 13:02) [1]

так и запоминай текущую строку.

← →
Amoeba (2004-01-15 13:11) [2]

Заведи счетчик числа прочитанных строк и запомни номер нужной. Чтобы потом вернуться к нужной придется сперва сделать Resеt и потом соответствующее число раз выполнить ReadLn.

← →
Романов Р.В. (2004-01-15 13:14) [3]

Читай файл в стринглист

← →
Anatoly Podgoretsky (2004-01-15 13:18) [4]

Тестовый файл это устройство последовательного доступа.

← →
Романов Р.В. (2004-01-15 13:20) [5]

> Anatoly Podgoretsky © (15.01.04 13:18) [4]
> Тестовый файл это устройство последовательного доступа.

Черномырдин отдыхает :)

← →
Anatoly Podgoretsky (2004-01-15 13:27) [6]

Зря смеешься, имею право рассматривать файл как устройство, а устройство как файл.

← →
Dimman1 (2004-01-15 13:35) [7]

открывай его как File of char и сам делай разбивку на строки ну там $0A $0D как перевод строки, короче если видишь 0D, значит строка кончилась и т.д... Тогда и FilePos, Seek нормально работать будет.

← →
Igor Bykov (2004-01-15 14:31) [8]

Пробовал. Делаю сначала n:=filepos(f), затем seek(f,n) выскакивает ошибка на seek несовместимости типов.

← →
Anatoly Podgoretsky (2004-01-15 14:34) [9]

Ты не сомневайся, если говорит, то это правда.

← →
Dimman1 (2004-01-15 19:59) [10]

дык файл надо описывать не так:
var f:system.text;

а так:
var f:file of char;

← →
Андрей Сенченко (2004-01-15 20:22) [11]

Документацию по функции seek почитай внимательно. С каких это пор она может работать с текстовыми файлами ?

← →
Андрей Сенченко (2004-01-15 20:24) [12]

Anatoly Podgoretsky © (15.01.04 14:34) [9]
Ты не сомневайся, если говорит, то это правда.

Анатолий !
Ну этот то вопрос Вам чем не приглянулся ? Пытается парень разобраться. Видно. Ну попытался использовать вроде как подходящую функцию, напоролся ... Ну хоть направление куда копать нужно давать.

← →
Anatoly Podgoretsky (2004-01-15 21:09) [13]

Если бы пытался получить помощь, то привел бы объявление переменных, а так любимое ошибка в 17 строке.

← →
Андрей Сенченко (2004-01-15 21:10) [14]

textfile
- в теме
n:=filepos(f), затем seek(f,n)
- в [8]

достаточно, чтобы понять, что прочитал букварь, да не совсем

IMHO

← →
Германн (2004-01-16 01:03) [15]

2 Романов Р.В. © (15.01.04 13:20) [5]

Не знаю, что делал Черномырдин в данный момент, но возможно, преподу, который вас учил пришла в голову мысль, "а вдруг я плохо учу своих подопечных?". Поскольку Анатолий по смыслу абсолютно прав. Единственно в чем можно его "упрекнуть", это то, что с точки зрения "Юриста от Программирования", следовало бы написАть так:
Файл, который открыт в Паскале как текстовый - это устройство последовательного доступа.

← →
ALEIIIKA (2004-01-16 06:59) [16]

[5] не прав функция ReadLN(), Read(), W.. - работают с устройством ввода и вывода, только программист задает из какого устройства необходимо взять или положить инфу.
По умолчанию это устройство - экран,
по необходимости - принтер или файл.
Так что как не крути Anatoly Podgoretsky прав.

← →
Yuri-7 (2004-01-16 07:37) [17]

Зря пропустили сообщение:

>Романов Р.В. © (15.01.04 13:14) [3]
>Читай файл в стринглист

Все Strings имеют индекс и запоминай себе его

textfile Найти похожие ветки