mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 12:09:30 +02:00
25 lines
511 B
ObjectPascal
25 lines
511 B
ObjectPascal
program ex18;
|
|
|
|
{ Program to demonstrate the TStream.Read method }
|
|
|
|
Uses Objects;
|
|
|
|
Var Buf1,Buf2 : Array[1..1000] of Byte;
|
|
I : longint;
|
|
S : PMemorySTream;
|
|
|
|
begin
|
|
For I:=1 to 1000 do
|
|
Buf1[I]:=Random(1000);
|
|
Buf2:=Buf1;
|
|
S:=New(PMemoryStream,Init(100,10));
|
|
S^.Write(Buf1,SizeOf(Buf1));
|
|
S^.Seek(0);
|
|
For I:=1 to 1000 do
|
|
Buf1[I]:=0;
|
|
S^.Read(Buf1,SizeOf(Buf1));
|
|
For I:=1 to 1000 do
|
|
If Buf1[I]<>buf2[i] then
|
|
Writeln ('Buffer differs at position ',I);
|
|
Dispose(S,Done);
|
|
end. |