n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/binfileunit.pas

45 строк638 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

unit binfileunit;

interface

type pointrec = record
    x: integer;
    y: integer;
    line: string;
  end;
   
var f: file;
    x: real;
    i: integer;
    s: string;
    r1, r2: pointrec;

procedure exec;
    
implementation

procedure exec;
begin
  f := new BinaryFile;
  assign(f, 'binfile.dat');
  rewrite(f);
  write(f, 3.14, 7);
  r1.x := 14;
  r1.y := 21;
  r1.line := 'It is record!';
  write(f, r1);
  write(f, 'Hi!');
  close(f);
  reset(f);
  read(f, x, i);
  writeln(eof(f));
  read(f, r2, s);
  writeln(eof(f));
  writeln(x);
  writeln(i);
  writeln(r2.x, ' ', r2.y, ' ', r2.line);
  writeln(s);
  close(f);
end;

end.