[fpc-devel] [PATCH] patch for zipper.pp

Micha Nelissen micha at neli.hopto.org
Wed Jul 29 09:40:45 CEST 2009

Andrew Haines wrote:
> procedure TForm1. at UnZipCustomOutput(Sender: TObject; var AStream:
>             TStream; AItem: TFullZipFileEntry; AClosing: Boolean);
> begin
>   if AClosing = False then
>   begin
>     AStream := TMemoryStream.Create;
>   end

Do you mind if I say I think this is a very weird event handler?

What is the behaviour? How many times is it called? What does AClosing 
mean? How do I know I don't have a memory leak?

Why an event handler and not a property? A CustomStream property where 
non-nil means use this stream, if nil then default old behaviour e.g.


More information about the fpc-devel mailing list