Инструменты пользователя

Инструменты сайта


cp:obx-simple-file-write

Запись действительного числа в файл

MODULE DemoFiles;

IMPORT Files, Strings, Math;

PROCEDURE WriteReal(wr: Files.Writer; r: REAL);
VAR str: ARRAY 64 OF CHAR; i: INTEGER;
BEGIN 
	Strings.RealToString(r, str);
	i:=0;
	WHILE (i < LEN(str)) & (str[i] # 0X) DO
		wr.WriteByte(SHORT(SHORT(ORD(str[i]))));
		INC(i)
	END
END WriteReal;

PROCEDURE WriteLn(wr: Files.Writer);
BEGIN 
	wr.WriteByte(0DH);
	wr.WriteByte(0AH);
END WriteLn;

PROCEDURE Do*;
VAR f: Files.File; wr: Files.Writer; res: INTEGER;
BEGIN
	f := Files.dir.New(Files.dir.This(""), Files.dontAsk);
	wr := f.NewWriter(NIL);
	WriteReal(wr, Math.Pi());
	WriteLn(wr);
	WriteReal(wr, Math.Pi());
	WriteLn(wr);
	f.Register("demo", "txt", Files.dontAsk, res);
	f.Close
END Do;

END DemoFiles.
cp/obx-simple-file-write.txt · Последние изменения: 2019/01/05 21:24 — иван_денисов