How to enumerate all TObject types used in a project?

[vfclists]

For now I need it to mainly for two things:

1. To get the UnitName for every component used in an application in order to extend the LFM to PAS code at both design time and at runtime.

2. To fill out the object class names in order to load components from LFM files at runtime.

Code: Pascal  [Select][+][-]

1. procedure TLayoutDesignerFormOne.OnFindClass(Reader: TReader;
2.   const AClassName: string; var AComponentClass: TComponentClass);
3. var
4.   objClassName, msg: string;
5.   E: Exception;
6. begin
7.   objClassName := UpperCase(AClassName);
8.   case objClassName of
9.     'TDBGRID': AComponentClass := TDBGrid;
10.     'TATSYNEDIT': AComponentClass := TATSynEdit;
11.     'TATSCROLLBAR': AComponentClass := TATScrollBar;
12.   else
13.     self.mmoMessages01.Lines.Add(AClassName + ' is not listed');
14.     msg := (AClassName + ' : Type Unknown');
15.     mmoMessages01.Lines.Add(msg);
16.     E := Exception.Create(msg);
17.     ShowException(E, ExceptAddr);
18.  
19.     E.Free;
20.   end;
21.  
22. end;
23.  

[jamie]

I guess you should be scanning the folder of a compiled project for all the *.LFM files.

That would be my best guess.
 

[KodeZwerg]

For Delphi it's pretty easy, you just need to readout the .exe file

I try if I find in FPC compiled files something similar but I doubt it.

[jamie]

You can read the resource of a lazarus EXE file to obtain the LFM string.

[Martin_fr]

"All TObject"... => Including TStringList, TStream, ....
Or just components/controls?

And if the latter, only those that are part of the form (and in the lfm) or all other too?

E.g. if your form does not have any button on it, and does not have any field of type TButton... You can still do

Code: Pascal  [Select][+][-]

1. procedure foo;
2. var
3.   b: TButton; //local variable
4. begin
5.   b:= TButton.Create(Form1);
6.   b.parent := Form1;
7. end;

Such local only used stuff, will be hard to find.

Equally hard, any field on the form that is not published.


Also

Code: Pascal  [Select][+][-]

1. TForm1 = class(TForm)
2. FLabeledEdit: TLabeledEdit;

There will be a TEdit on the form, but there is no field of type TEdit.

And you can of course have lfm and form out of sync (though likely that gives error at runtime). In that case too, classes may be used, that aren't found via the form.

For all else you, if you have the form (or a list of all forms), you can iterate over the RTTI of the form.

You may have to recursively go over the RTTI of controls on the form (e.g. for tframe, maybe others).

So depending on the above is your question: How to iterate the RTTI?

Mind that there is also RegisterClass and such classes can be gotten from some list. But that may just mean, the unit that does the registration is used, the class itself may or may not be in use.

[Martin_fr]

To get the UnitName for

If you have the class, then there is

Code: Pascal  [Select][+][-]

1. class function UnitName : string

so if you have "var TheClass: TClass" you can call that.

[vfclists]

You can read the resource of a lazarus EXE file to obtain the LFM string.

What utilities can be used for this?

Text editors general choke on such files

[jamie]

it will only show what the designer put in there, runtime creation of components will not show in the LFM file or resource within the EXE.