работа с файлам

[iolanna]

m

[Шрэк]

Вот пример из справочной системы, здесь собственно в цикле идет считывание строк, выводится сообщение по считанному количеству символов, может быть вам поможет.
Переменные:
Name DataType

FileTest File
streamInTest InStream
Int Integer
Txt Text

FileTest.TEXTMODE(TRUE);
FileTest.OPEN('c:\Test.txt');

FileTest.CREATEINSTREAM(streamInTest);
//Starting a loop
WHILE NOT (streamInTest.EOS()) DO
BEGIN
Int:= streamInTest.READTEXT(Txt,100); // если убрать параметр 100 будет считывать всю строку, иначе по 100 символов
MESSAGE(FORMAT (Txt) + ' Size: ' + FORMAT(Int));
END;
FileTest.CLOSE();