[Lazarus] TFiler.DefineBinaryProperty ReadData size problem

[Mattias Gaertner]

On Tue, 20 May 2008 14:26:53 +0800 (CST)
brianwung at seed.net.tw wrote:

> Dear All,
> 
> procedure TspCompressedStoredSkin.DefineProperties(Filer: TFiler);
> begin
>   inherited;
>   Filer.DefineBinaryProperty('CompressedData', ReadData, WriteData,
> True); end;
> 
> procedure TspCompressedStoredSkin.ReadData;
> begin
>   FCompressedStream.LoadFromStream(Reader);
> end;   

What is FCompressedStream?
ReadData is missing the parameter.

 
> On Delphi, this method returns rigth size(38750 byte) and it's work.
> but on Lazarus returns wrong size(38764 byte).
> Why? Is it a bug?


Mattias