On Tue, 20 May 2008 14:26:53 +0800 (CST) [EMAIL PROTECTED] 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.

FCompressedStream IS TMemoryStream.
 
> 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
_______________________________________________
Lazarus mailing list
[email protected]
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus

__________ Information from ESET NOD32 Antivirus, version of virus signature 
database 3112 (20080520) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com


_______________________________________________
Lazarus mailing list
[email protected]
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus

Reply via email to