Anzahl Formulare / Dynamisch Klassen ansprechen?

[DeddyH]

Basierend auf obigem Code habe ich mal diese Funktion gebastelt:

Delphi-Quellcode:

function CompHasCaption(AClass : TObject; out sResult: string): Boolean;
const sProp = 'Caption';
var
  MyPropInfo: PPropInfo;
begin
  sResult := '';
  MyPropInfo := GetPropInfo(AClass.ClassInfo, sProp);
  Result := Assigned(MyPropInfo);
  if Result then
    sResult := GetPropValue(AClass, sProp);
end;

Damit sollte es gehen.