pascalabcnet/TestSuite/CompilationSamples/Reflection.pas

12 lines
358 B
ObjectPascal
Raw Normal View History

// Отражение типов. Выводятся все члены типа DateTime
2015-05-14 22:35:07 +03:00
uses System,System.Reflection;
begin
2018-04-05 20:02:37 +03:00
var bf := BindingFlags.Public or BindingFlags.NonPublic or BindingFlags.&Instance or BindingFlags.Static;
2015-05-14 22:35:07 +03:00
var t: &Type := typeof(DateTime);
var mi := t.GetMembers(bf);
foreach m: MemberInfo in mi do
writeln(m);
end.