M I D l e t P a s c a l
ReadLine

Читает следующую строку текста из файла ресурсов res (признаком конца строки служит символ с кодом 10 или 13) или возвращает пустую строку если больше читать нечего (или произошла ошибка чтения). Если в файле ресурсов есть пустые строки, то они будут пропущены.

ПРИМЕЧАНИЕ: На самом деле функция не умееет определять конец файла (определяет его некорректно). Для корректного чтения всего файла добавьте в конец файла какую-нибудь строку, которая будет служить меткой конца файла (например, '###') и читайте файл ресурсов с помощью алгоритма, показанного ниже.

function ReadLine(res: resource):string;
 



Пример

var
    s, text: string;
begin
    repeat
        s := ReadLine(res); // Читаем строку из файла
        if s='###' then break; // Если конец файла, то прекращаем чтение
        text := text + s; // Что-то делаем co строкой
    until false;
end.




Совместимость

MIDP1.0




Требуемый модуль

Не требуется




Смотри также

OpenResource, ResourceAvailable, CloseResource, ReadByte