[fpc-pascal] Publishing indexed property in descendant

[Vojtěch Čihák]

Done, https://bugs.freepascal.org/view.php?id=32896
 
V.
______________________________________________________________
> Od: Michael Van Canneyt <michael at freepascal.org>
> Komu: FPC-Pascal users discussions <fpc-pascal at lists.freepascal.org>
> Datum: 28.12.2017 16:43
> Předmět: Re: [fpc-pascal] Publishing indexed property in descendant
>

 
 On Thu, 28 Dec 2017, Vojtěch Čihák wrote:
 
 > Hi,
 >  
 > is this bug?
 >  
 >  { TCompStreamPers }
 >   TCompStreamPers = class(TCustomControl)
 >   private
 >     function GetItem(AIndex: Integer): TPersItem;
 >     procedure SetItem(AIndex: Integer; AValue: TPersItem);
 >   protected
 >     FItems: TFPObjectList;
 >   public
 >     constructor Create(AOwner: TComponent); override;
 >     destructor Destroy; override;
 >   //published
 >     property Item[AIndex: Integer]: TPersItem read GetItem write SetItem;
 >   end;
 >  
 >   TCompStreamPers2 = class(TCompStreamPers)
 >   published
 >     property Item;
 >   end;
 >          
 > If I try to publish property Item in TCompStreamPers, compiler rejects with "compstreampers.pas(31,19) Error: This kind of property cannot be published".
 >  
 > But when I do it in descendant class, compiler is silent. Delphi7 does not allow it: "[Error] Unit2.pas(35): Published property 'Item' cannot be of type ARRAY".
 
 It is a bug, please post a bug report.
 
 Michael.
 
 ----------
 
 _______________________________________________
 fpc-pascal maillist  -  fpc-pascal at lists.freepascal.org
 http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal <http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20171228/e4d199c0/attachment.html>