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 ;-)
Exit( TypeInfo().GetSinglePropertiesRecursive( Self, TOWPinTypeObject ).Query().Contains(
function( APropertyObject : TRecursiveInfo
begin
Result := APropertyObject.Element.Value[ APropertyObject.Owner ].AsType
end
));
Checks if any sub property of the component has any type of connected OpenWire pin, using the Mitov.Runtime RTTI ;-)
Comments
Post a Comment