побайтное чтение файла (из Телеграма)
Добавлено: 01.01.21 22:27
Sergey Durmanov, [01.01.21 14:28]
Можно использовать Files.OpenReader*(VAR b: Reader; f: File; pos: Position); или непосредственно VAR r := NEW Files.Reader( file, pos )
В т.ч. таким способом можно читать литеру с кодом 0.
Можно использовать Files.OpenReader*(VAR b: Reader; f: File; pos: Position); или непосредственно VAR r := NEW Files.Reader( file, pos )
Код: Выделить всё
WHILE r.res = Streams.Ok DO
r.Char( ch );
...
END;