Fun code snippet of the day :-)

Fun code snippet of the day :-)

Exit( TypeInfo().GetSinglePropertiesRecursive( Self, TOWPinTypeObject ).Query().Contains(
function( APropertyObject : TRecursiveInfo ) : Boolean
begin
Result := APropertyObject.Element.Value[ APropertyObject.Owner ].AsType.IsConnected();
end
));

Checks if any sub property of the component has any type of connected OpenWire pin, using the Mitov.Runtime RTTI ;-)