Показаны различия между двумя версиями страницы.
— |
cp:obx-read_file_bytes [2021/06/19 15:24] (текущий) rbv создано |
||
---|---|---|---|
Строка 1: | Строка 1: | ||
+ | ====== Побайтное чтение файла ====== | ||
+ | Программа на Компонентном Паскале для побайтного считывания файла и вывода содержимого в окно сообщений (лог). | ||
+ | |||
+ | <code componentpascal> | ||
+ | MODULE ExamplesReadFile; | ||
+ | |||
+ | | ||
+ | |||
+ | | ||
+ | VAR file: Files.File; reader: Files.Reader; | ||
+ | BEGIN | ||
+ | file := Files.dir.Old(Files.dir.This(" | ||
+ | IF file # NIL THEN | ||
+ | | ||
+ | IF reader # NIL THEN | ||
+ | (* ASSERT(~reader.eof); | ||
+ | | ||
+ | WHILE ~reader.eof DO | ||
+ | | ||
+ | | ||
+ | END; | ||
+ | (* ASSERT(reader.eof) *) | ||
+ | ELSE | ||
+ | | ||
+ | END; | ||
+ | | ||
+ | ELSE | ||
+ | | ||
+ | END | ||
+ | END ReadFileBytes; | ||
+ | |||
+ | END ExamplesReadFile. | ||
+ | </ | ||
+ | |||
+ | // |