|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.02.2007, 01:42 | #1 |
Helper
Форумчанин
Регистрация: 10.12.2006
Сообщений: 109
|
Back to the TextFile
Люди, как в текстовом файле (без вывода в Memo) определить номер строки?
т.е. задача сводится к тому, чтобы определить i-ю стоку.
Глупых вопросов не бывает - бывают глупые ответы.
Последний раз редактировалось Albenous; 06.02.2007 в 02:15. Причина: Ошибка в коде еще тупее чем был вопрос :-))) |
06.02.2007, 06:49 | #2 |
Пользователь
Регистрация: 05.02.2007
Сообщений: 10
|
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 - номер нужной строки Последний раз редактировалось ClauZzz; 06.02.2007 в 06:52. |
07.02.2007, 11:26 | #3 |
Кодер
Форумчанин
Регистрация: 27.01.2007
Сообщений: 271
|
2Albenous А с помощью чего ты читаешь(будешь читать) из файла
|
08.02.2007, 21:19 | #4 |
Helper
Форумчанин
Регистрация: 10.12.2006
Сообщений: 109
|
Вопрос задан как-то некорректно... Читать будет моя программа... Обычный текстовик, в котором строчки чисел или слов.
Глупых вопросов не бывает - бывают глупые ответы.
|
09.02.2007, 23:05 | #5 |
Пользователь
Регистрация: 09.02.2007
Сообщений: 49
|
Вопрос задан грамотно, можно читать из файла паскалевским способами (Read(-ln),BlockRead) и/или потоками Tstream, для разных способов свои условия... Хотя можно еще и QSearch... Но это отдельная тема
Свой среди чужих
Чужой среди своих |
09.02.2007, 23:53 | #6 | |
Андрей
Форумчанин
Регистрация: 21.11.2006
Сообщений: 457
|
Цитата:
ICQ: 5311314
[SIGPIC][/SIGPIC] |
|
12.02.2007, 02:31 | #7 | ||
Helper
Форумчанин
Регистрация: 10.12.2006
Сообщений: 109
|
Цитата:
Цитата:
Глупых вопросов не бывает - бывают глупые ответы.
|
||
12.02.2007, 19:33 | #8 |
Кодер
Форумчанин
Регистрация: 27.01.2007
Сообщений: 271
|
Используй Seek(номер) для перемещения по файлу. А вообще если пользуешь по полной создавай буфер и в него записывай, редактируй а в конце работы сохраняй.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как преобразовать TextFile в String? | DragonionS | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 06.06.2007 18:38 |