Michael Van Canneyt wrote:
And writing ?
Silently do nothing:
procedure TForm4.Button1Click(Sender: TObject); var S: TMemoryStream; B: Byte; Count: Integer; begin S := TMemoryStream.Create; S.Position := -1; B := 1; S.Write(B, SizeOf(B)); ShowMessage(IntToStr(S.Size)); S.Free; end; it shows 0 Best regards, Paul Ishenin. _______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel