20.01.2020, 11:18 [+3 UTC]
в нашей команде: 4 154 чел. | участники онлайн: 2 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.80 (15.01.2020)
JS-v.1.35 | CSS-v.3.36

Общие новости:
06.01.2020, 22:45

Форум:
13.01.2020, 16:40

Последний вопрос:
19.01.2020, 21:17
Всего: 151440

Последний ответ:
19.01.2020, 15:59
Всего: 259653

Последняя рассылка:
19.01.2020, 14:15

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
25.02.2012, 20:08 »
Даровко Антон Владимирович
Есть ошибка в решении, а формулы правильные. [вопрос № 185492, ответ № 270048]
18.01.2012, 16:32 »
Даровко Антон Владимирович
Я посмотрел Ваш ответ и оценил его на отлично. [вопрос № 185202, ответ № 269618]
29.04.2019, 22:12 »
viktorija79
Спасибо большое! Все доступно и понятно объяснили! [вопрос № 195405, ответ № 277987]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Старший модератор)]

Лучшие эксперты в этом разделе

Gluck
Статус: Студент
Рейтинг: 498
Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 270
Лысков Игорь Витальевич
Статус: Старший модератор
Рейтинг: 109

Перейти к консультации №:
 

Консультация онлайн # 72269
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: Snik
Отправлена: 23.01.2007, 15:28
Поступило ответов: 2

1) Как построить цикл(открыв текстовый файл) в котором будут обрабатываться строки, чтобы каждую строку я мог бы обработать?
for i = 1 to КоличествоСтрок do

У меня такая задача :
-открыть текстовый файл (где слова разделены пробелами)
-вывести слова в которых нет повторяющихся букв

Состояние: Консультация закрыта

Здравствуйте, Snik!
Количество строк еще нужно определить. По-этому лучше использовать цикл
while not EOF(f) do
а в цикле
readln(f, str);
/* и работа со строкой str */
Тогда точно не выйдете за границы файла без дополнительных действий и проверок


Консультировал: Tek
Дата отправки: 23.01.2007, 15:41

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Ответ # 138550 от Nick_K

Здравствуйте, Snik!
Нужно присвоить пременной типа TextFile адрес желаемого текстофого файла.
После этого, используя While not EOF()... и readln можно работать с каждой строкой файла.

Приложение:


Консультировал: Nick_K
Дата отправки: 23.01.2007, 17:12

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

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

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.19610 сек.

© 2001-2020, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.80 от 15.01.2020
Версия JS: 1.35 | Версия CSS: 3.36