Показаны различия между двумя версиями страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
cp:obx-simple-file-write [2019/01/05 21:24] иван_денисов |
cp:obx-simple-file-write [2021/06/24 14:53] (текущий) iadenisov |
||
---|---|---|---|
Строка 1: | Строка 1: | ||
====== Запись действительного числа в файл ====== | ====== Запись действительного числа в файл ====== | ||
+ | [[: | ||
+ | |||
+ | Ниже представлен пример записи действительных чисел в файл низкоуровневом режиме работы с байтами через модуль Files. | ||
< | < | ||
Строка 7: | Строка 10: | ||
IMPORT Files, Strings, Math; | IMPORT Files, Strings, Math; | ||
- | PROCEDURE WriteReal(wr: | + | PROCEDURE WriteReal (wr: Files.Writer; |
VAR str: ARRAY 64 OF CHAR; i: INTEGER; | VAR str: ARRAY 64 OF CHAR; i: INTEGER; | ||
- | BEGIN | + | BEGIN |
Strings.RealToString(r, | Strings.RealToString(r, | ||
- | i:=0; | + | FOR i := 0 TO LEN(str$) - 1 DO |
- | WHILE (i < LEN(str)) & (str[i] # 0X) DO | + | wr.WriteByte(SHORT(SHORT(ORD(str[i])))) |
- | wr.WriteByte(SHORT(SHORT(ORD(str[i])))); | + | |
- | INC(i) | + | |
END | END | ||
END WriteReal; | END WriteReal; | ||
- | PROCEDURE WriteLn(wr: Files.Writer); | + | PROCEDURE WriteLn (wr: Files.Writer); |
BEGIN | BEGIN | ||
- | wr.WriteByte(0DH); | + | wr.WriteByte(0DH); |
- | wr.WriteByte(0AH); | + | |
END WriteLn; | END WriteLn; | ||
Строка 31: | Строка 31: | ||
WriteReal(wr, | WriteReal(wr, | ||
WriteLn(wr); | WriteLn(wr); | ||
- | WriteReal(wr, | + | WriteReal(wr, |
WriteLn(wr); | WriteLn(wr); | ||
f.Register(" | f.Register(" |