[Lazarus] Codetools check lfm bug?

patspiper patspiper at gmail.com
Fri Feb 22 17:07:05 CET 2013


Hi,

'Tools/Check LFM File in editor' gives the error 'identifier Strings is 
not published in class TStringListDescendant'

where TStringListDescendant is just a descendant of TStringList. The 
error does not happen with TStringList itself. Is this a bug?

----------------------------------
   TStringListDescendant = class(TStringList)
   end;

   TDesignComponent = class(TComponent)  // <- component registered in 
the IDE
   private
     FStringsData: TStrings;
     FStringListData: TStringList;
     FStringListDescendantData: TStringListDescendant;
     procedure SetStringsData(AValue: TStrings);
     procedure SetStringListData(AValue: TStringList);
     procedure SetStringListDescendantData(AValue: TStringListDescendant);
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
   published
     property StringsData: TStrings read FStringsData write SetStringsData;
     property StringListData: TStringList read FStringListData  write 
SetStringListData ;
     property StringListDescendantData: TStringListDescendant read 
FStringListDescendantData write SetStringListDescendantData;
   end;

lfm (relevant part):
   object DesignComponent1: TDesignComponent
     StringsData.Strings = (
       '1'
     )
     StringListData.Strings = (
       '2'
     )
     StringListDescendantData.Strings = (
       '3'
     )
     left = 229
     top = 48
   end
----------------------------------

Stephano




More information about the Lazarus mailing list