Как прочитать текстовый файл не построчно, а полностью? - Free Pascal
Формулировка задачи:
Как прочитать текстовый файл не построчно, а полностью? Просто дано задание: найти в каждой строке максимально встречающуюся букву и переписать в новый файл все слова в которых она встречается. Проблема в том что например:
ooo tt oooo mo
mmmm m tt to
rrrm t t www ww
В данной ситуации она выведет: o m w и слова которые будут переписаны это (1)ooo oooo mo (2)mmmm m (3)www ww, а должно быть (1)ooo oooo mo (2)mmmm m to (3) rrrm www ww
Решение задачи: «Как прочитать текстовый файл не построчно, а полностью?»
textual
Листинг программы
- {$mode objfpc}
- uses
- Classes, SysUtils;
- var
- Str: TStringList;
- begin
- Str := TStringList.Create; //создали
- Str.LoadFromFile('in.txt'); // прочитали весь файл
- writeln(str.text); // в str.text все содержимое
- Str.Free; //уничтожили
- end.
Объяснение кода листинга программы
- В первой строке указывается режим компиляции {$mode objfpc}, который определяет, что код будет компилироваться в формате OBJFPC.
- В следующей строке используются модули Classes и SysUtils.
- Далее объявляется переменная Str типа TStringList.
- В строке Str := TStringList.Create; создается новый объект TStringList.
- В строке Str.LoadFromFile('in.txt'); содержимое файла 'in.txt' загружается в объект Str.
- В строке writeln(str.text); выводится содержимое объекта Str.
- В строке Str.Free; объект Str освобождается.
- В конце программы нет точки с запятой.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д