在Delphi语言中将C#对象转换为字符串

uses
  SuperObject;

type
  TCSharpObject = class
  private
    FName: string;
    FAge: Integer;
  public
    property Name: string read FName write FName;
    property Age: Integer read FAge write FAge;
  end;

procedure ConvertCSharpObjectToString;
var
  CSharpObject: TCSharpObject;
  RttiContext: TSuperRttiContext;
  JsonObject: ISuperObject;
  JsonWriter: TSuperJSONWriter;
  JsonString: string;
begin
  // 创建C#对象并设置属性值
  CSharpObject := TCSharpObject.Create;
  CSharpObject.Name := 'John';
  CSharpObject.Age := 25;

  // 获取C#对象的属性信息
  RttiContext := TSuperRttiContext.Create;
  JsonObject := SO;

  // 遍历C#对象的属性，将属性名和属性值添加到JSON对象中
  RttiContext.ForEachProperty(CSharpObject, procedure(const Prop: TRttiProperty; const Value: TValue)
    begin
      JsonObject.S[Prop.Name] := Value.ToString;
    end);

  // 将JSON对象转换为字符串
  JsonWriter := TSuperJSONWriter.Create(nil);
  try
    JsonWriter.Root := JsonObject;
    JsonWriter.Compact := True;
    JsonWriter.WriteString(JsonString);
  finally
    JsonWriter.Free;
  end;

  ShowMessage(JsonString);

  // 释放资源
  RttiContext.Free;
  CSharpObject.Free;
end;