Консультация № 72269
23.01.2007, 15:28
0.00 руб.
0 2 2
1) Как построить цикл(открыв текстовый файл) в котором будут обрабатываться строки, чтобы каждую строку я мог бы обработать?
for i = 1 to КоличествоСтрок do

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

Обсуждение

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

Приложение:
Var F:Textfile;Begin ... while not EOF(F) do begin {далее обрабатываете каждую строку, как хотите, используя функцию readln()} end; ...end;
Форма ответа