Выборочное чтение из файла - Free Pascal
Формулировка задачи:
Бодрого дня, господа.
Ни как не могу найти решение такой проблемки:
Есть файл, допустим, info.txt:
В паскале делаем якобы "меню":
Человек вводит "1", "2" или "3". Необходимо прочитать нужные строки (с 1 по 3 или с 4 по 6, или с 7 по 9) и вывести на экран.
И на этом ступор. Знаю, как прочитать и вывести 3 первых. А остальные ...
Очень хелп.
Первая строка Первого пункта
Вторая строка Первого пункта
Третья строка Первого пункта
Первая строка Второго пункта
Вторая строка Второго пункта
Третья строка Второго пункта
Первая строка Третьего пункта
Вторая строка Третьего пункта
Третья строка Третьего пункта
writeln('1.'); writeln('2.'); writeln('3.'); readln(N); assign(F,'info.txt'); reset(F);
Решение задачи: «Выборочное чтение из файла»
textual
Листинг программы
uses classes; var L : TStringList; i, n : integer; begin writeln('1.'); writeln('2.'); writeln('3.'); readln(N); L := TStringList.Create; L.LoadFromFile('info.txt'); for i := (n - 1)*3 to 3*n - 1 do writeln(L[i]); L.Free; end.
Объяснение кода листинга программы
- Объявление переменных: L (TStringList), i, n (integer).
- Вывод на экран списка чисел от 1 до 3.
- Чтение с клавиатуры числа N.
- Создание объекта TStringList (L) и загрузка его из файла 'info.txt'.
- Организация цикла по элементам списка (L) от (n-1)3 до 3n-1.
- Вывод на экран содержимого каждого элемента списка (L).
- Освобождение памяти, занятой объектом TStringList (L).
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д