Reflection/List properties: Difference between revisions
PascalABC.NET
(Add Ecstasy example) |
(PascalABC.NET) |
||
Line 709:
123 1 0 1 0 0 1 0 1 0 0 1 1 1 NUM
A B I L M N O S U V W X 9 datatype(v)</pre>
=={{header|PascalABC.NET}}==
<syntaxhighlight lang="delphi">
uses System, System.Reflection;
type
MyClass = class
private
auto property NumberPrivate: integer := 666;
public
auto property Number: integer := 3;
end;
begin
var flags := BindingFlags.Instance or BindingFlags.Static
or BindingFlags.Public or BindingFlags.NonPublic
or BindingFlags.DeclaredOnly;
var obj := new MyClass;
typeof(MyClass).GetProperties(flags).Select(p -> (p.Name,p.GetValue(obj))).PrintLines;
end.
</syntaxhighlight>
{{out}}
<pre>
(NumberPrivate,666)
(Number,3)
</pre>
=={{header|Perl}}==
| |||