Re: [Delphi 6] Introspection - iterate through all class members of a given type?

Duncan McNiven wrote:
> On 28 Oct 2005 08:20:49 -0700, "Richard" <radevenz@xxxxxxxxxxxxx>
> wrote:
>
>> procedure FooBarInspector(Thing:TObject);
>> begin
>>
>> // how would I code this?
>> for each TFooBar (as aFooBar) in Thing do begin
>> doSomethingWith (aFooBar);
>> end;
>>
>> end;
>
> procedure FooBarInspector(Thing:TObject);
> var
> iCtrl : integer;
> begin
> if Thing is TForm then
> for iCtrl := 0 to TForm(Thing).ControlCount - 1 do
> if TForm(Thing).Controls[iCtrl] is TFooBar then
> doSomethingWith (TFooBar(TForm(Thing).Controls[iCtrl]));
> end;

Duncan thanks very much, this is what I needed for my situation.
Maarten thanks for making me aware of Components[], this might be needed
later :)

--
Richard A. DeVenezia


.