paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 12:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Mre checking is done now. Also Setsize is checked.

Browse Source
This commit is contained in:
michael 1999-07-18 20:59:21 +00:00
parent 8413f064a8
commit 835f1a632b
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fcl/tests/mstream.pp
View File

@ -12,12 +12,22 @@ begin
Stream:=TMemoryStream.Create;
Writeln ('Initial Size : ',Stream.Size);
Writeln ('Initial Position : ',Stream.Position);
Writeln ('Setting new size to 100');
Stream.Size:=100;
Writeln ('New Size : ',Stream.Size);
Writeln ('new Position : ',Stream.Position);
Stream.WriteByte (1);
Stream.WriteWord (2);
Stream.WriteDWord (3);
Stream.WriteBuffer (S[1],Length(S));
Writeln ('Size after write : ',Stream.Size);
Writeln ('Position after write : ',Stream.Position);
Writeln ('Truncating size');
Stream.Size:=Stream.Position;
Writeln ('Stream Size is : ',Stream.Size);
Stream.Seek(0,soFromBeginning);
Writeln ('Stream Position : ',Stream.Position);
Writeln ('Seek to position 0 : ', Stream.Seek(0,soFromBeginning));
Writeln ('new Position : ',Stream.Position);
If Stream.ReadByte<>1 then Writeln ('First byte not 1');
If Stream.ReadWord<>2 then Writeln ('First word not 2');
If Stream.ReadDWord<>3 then Writeln ('First Word not 3');