1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

IMPORT Viewers, Texts, TextFrames, Oberon;
.
.
VAR
  R: Texts.Reader;
  W: Texts.Writer;
.
.
PROCEDURE error(n: INTEGER);
VAR pos: LONGINT;
BEGIN pos := Texts.Pos(R);
  IF pos > lastpos+2 THEN
    Texts.WriteString(W, " pos"); Texts.WriteInt(W, pos, 6);
    Texts.WriteString(W, " err"); Texts.WriteInt(W, n, 4); lastpos := pos;
    Texts.WriteString(W, " sym"); Texts.WriteInt(W, sy, 4);
    Texts.WriteLn(W); Texts.Append(Oberon.Log, W.buf)
  END
END error;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Project OberonMitFehler;

Uses
    SysUtils;

VAR
  W: TextFile;

PROCEDURE error(n: INTEGER);
VAR pos: LONGINT;
BEGIN pos := Pos(R,'Was denn suchen???');
  IF pos > lastpos+2 THEN
  Begin
    Write(W, Format(' pos %.6d', [pos]));
    Write(W, Format(' err %.4d', [n]));
    lastpos := pos;
    Write(W, Format(' sym %.4d', [sy]));
    WriteLn(W); 
  END;
END;

end.					

1:
2:
3:
4:
5:
6:

var
  R: TReader;
.
.
.
pos := R.Position;					

1:
2:

var
FS:TFileStream					

1:

FS := TFileStream.Create('Datei.txt', fmOpenReadWrite);					

1:
2:
3:
4:
5:
6:

var
S:String;
begin
  S := DeinText;
  FS.WriteBuffer(S[1], Length(S));
end;					

1:
2:
3:
4:
5:
6:

var
S:String;
begin
  S := StringOfChar(#32, AnzahlZeichen);
  FS.ReadBuffer(S[1], Length(S));
end;