用Rtti实现自由对象的字段

uses
  Rtti;

type
  TMyObject = class
  private
    FField1: Integer;
    FField2: string;
  public
    property Field1: Integer read FField1 write FField1;
    property Field2: string read FField2 write FField2;
  end;

procedure AccessObjectFields(Obj: TObject);
var
  Ctx: TRttiContext;
  ObjType: TRttiType;
  Field: TRttiField;
begin
  ObjType := Ctx.GetType(Obj.ClassType);
  for Field in ObjType.GetFields do
  begin
    if Field.FieldType.IsOrdinal then
      Writeln(Field.Name + ': ' + IntToStr(Field.GetValue(Obj).AsOrdinal))
    else if Field.FieldType.IsInstance then
      Writeln(Field.Name + ': ' + Field.GetValue(Obj).AsInstance.ClassName)
    else
      Writeln(Field.Name + ': ' + Field.GetValue(Obj).ToString);
  end;
end;

var
  MyObj: TMyObject;
begin
  MyObj := TMyObject.Create;
  MyObj.Field1 := 123;
  MyObj.Field2 := 'Hello';

  AccessObjectFields(MyObj);

  MyObj.Free;
end.