Добавил функцию чтения произвольного количества строк.
Синтаксис новой функции такой:
string
ReadLinesBlock(fn: string; start: integer; len: integer; enc: integer)
Читает из файла блок строк.
fn - имя файла (символ "/" в начале имени добавлять не надо)
start - строка с которой нужно начать считывать (счёт идёт с 0, т.е. самая первая строчка в тексте имеет номер 0)
len - количество строк которое нужно считывать
enc - надо ли делать перекодировку из cp1251 --> UTF-8; 1 - надо перекодировать, 0 - не надо
Пример использования в программе:
Program Res02;
Uses resloader;
Var s, temp: string;
i: integer;
Begin
s:=ReadLinesBlock('test.txt', 1, 5, 1); // Читаем 5 строк с перекодировкой, причём первую строку пропускаем
ShowForm;
i:=FormAddString(s);
Delay(10000); // Небольшая задержка
End.