[fpc-devel] Read from memory stream with position before start of file

[C Western]

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