RTTI Enum von Propertys?

[Stevie]

Delphi-Quellcode:

procedure GetAllProperties(obj: TObject);
var
  context: TRttiContext;
  properties: TArray<TRttiProperty>;
  propertyIterator: TRttiProperty;
begin
  properties := context.GetType(obj.ClassInfo).GetProperties();
  for propertyIterator in properties do
    WriteLn(propertyIterator.Name);
end;