3
{ Program to demonstrate the TStream.Seek method }
13
L:='Some constant string';
14
{ Buffer size of 100 }
15
S:=New(PDosStream,Init('test.dat',stcreate));
16
Writeln ('Writing "',L,'" to stream.');
19
Writeln ('Set marker at ',Marker);
20
L:='Some other constant String';
21
Writeln ('Writing "',L,'" to stream.');
25
Writeln ('Size of stream is : ',S^.GetSize);
26
Writeln ('Seeking to marker');
31
Writeln ('Read "',L,'" from stream.');
b'\\ No newline at end of file'