Forum: Die Delphi-IDE
by Stevie,
17. Jan 2015
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;
Forum: Die Delphi-IDE
by Stevie,
16. Jan 2015
Führ doch mal das hier aus, dann siehste, wo das her kommt ;)
rttiType := context.GetType(TypeInfo(TObjectHelper));
while Assigned(rttiType) do
begin
Writeln(rttiType.ToString);
rttiType := rttiType.BaseType;
end;