ChatGPT: delphi rtti访问类公共属性生成json字符串

uses
  System.Rtti, System.JSON;

type
  TPerson = class
  public
    Name: string;
    Age: Integer;
  end;

function ObjectToJSON(AObject: TObject): string;
var
  Context: TRttiContext;
  RttiType: TRttiType;
  Prop: TRttiProperty;
  Value: TValue;
  JsonObject: TJSONObject;
begin
  Context := TRttiContext.Create;
  try
    RttiType := Context.GetType(AObject.ClassType);
    JsonObject := TJSONObject.Create;
    try
      for Prop in RttiType.GetProperties do
      begin
        if Prop.IsReadable then
        begin
          Value := Prop.GetValue(AObject);
          JsonObject.AddPair(Prop.Name, Value.AsString);
        end;
      end;
      Result := JsonObject.ToString;
    finally
      JsonObject.Free;
    end;
  finally
    Context.Free;
  end;
end;

var
  Person: TPerson;
begin
  Person := TPerson.Create;
  try
    Person.Name := 'John Doe';
    Person.Age := 30;
    WriteLn(ObjectToJSON(Person));
  finally
    Person.Free;
  end;
end.

这段代码使用了 RTTI 来获取类的公共属性，并将其值添加到一个 JSON 对象中。最后，将 JSON 对象转换为字符串并返回结果。