Читает следующую строку текста из файла ресурсов 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 |