Различия

Показаны различия между двумя версиями страницы.

@@ Строка 1: / Строка 1: @@
+====== Побайтное чтение файла ======
+Программа на Компонентном Паскале для побайтного считывания файла и вывода содержимого в окно сообщений (лог).
+<code componentpascal>
+MODULE ExamplesReadFile;
+ IMPORT Log, Files;
+ PROCEDURE ReadFileBytes*;
+  VAR file: Files.File; reader: Files.Reader; b: BYTE;
+ BEGIN
+   file := Files.dir.Old(Files.dir.This("c:\"), "file.txt", FALSE);
+   IF file # NIL THEN
+     reader := file.NewReader(NIL);
+     IF reader # NIL THEN
+       (* ASSERT(~reader.eof); *)
+       reader.ReadByte(b);
+       WHILE ~reader.eof DO
+         Log.Int(b); Log.Ln;
+         reader.ReadByte(b)
+       END;
+       (* ASSERT(reader.eof) *)
+     ELSE
+       Log.String("Error on open file reader."); Log.Ln
+     END;
+     file.Close
+   ELSE
+     Log.String("File open error."); Log.Ln
+   END
+ END ReadFileBytes;
+END ExamplesReadFile.
+</code>
+//Автор: Кривохатько С.А. Правки: Ильин А.С., PGR, Рюмшин Б.В., Темиргалеев Е.Э., Губанов С.Ю.//