Paul Ishenin wrote:
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.
I have submitted a patch:
<http://bugs.freepascal.org/view.php?id=13318>
Colin
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel