daizhengli

在 Delphi 中使用反射来清空一个类及其嵌套类的属性是一个相对高级的技术。反射允许你在运行时动态地访问对象的属性和方法。以下是一个使用反射来清空类属性的例子：

type
  TAddress = class
    Street: string;
    City: string;
  end;

  TPerson = class
    Name: string;
    Age: Integer;
    Address: TAddress;
  end;

procedure ClearProperties(AObject: TObject);
var
  Context: TRttiContext;
  RType: TRttiType;
  RProperty: TRttiProperty;
begin
  Context := TRttiContext.Create;
  try
    RType := Context.GetType(AObject.ClassInfo);
    for RProperty in RType.GetProperties do
    begin
      if RProperty.PropertyType.TypeKind = tkClass then
      begin
        // 如果属性是类类型，递归清空
        if Assigned(RProperty.GetValue(AObject).AsObject) then
          ClearProperties(RProperty.GetValue(AObject).AsObject);
      end
      else
      begin
        // 对于非类类型的属性，设置为默认值
        case RProperty.PropertyType.TypeKind of
          tkInteger, tkInt64:
            RProperty.SetValue(AObject, 0);
          tkFloat:
            RProperty.SetValue(AObject, 0.0);
          tkString, tkWString, tkLString, tkUString:
            RProperty.SetValue(AObject, '');
        else
          // 对于其他类型，你可能需要特殊处理
        end;
      end;
    end;
  finally
    Context.Free;
  end;
end;

// 使用示例
var
  Person: TPerson;
begin
  Person := TPerson.Create;
  try
    Person.Name := 'John Doe';
    Person.Age := 30;
    Person.Address := TAddress.Create;
    Person.Address.Street := '123 Main St';
    Person.Address.City := 'Anytown';

    // 使用反射清空 Person 对象
    ClearProperties(Person);

    // 此时 Person 的所有属性都被清空
  finally
    Person.Free;
  end;
end.

在这个例子中，ClearProperties 是一个递归函数，它接受一个 TObject 类型的参数，并使用反射来遍历该对象的所有属性。对于类类型的属性，它会递归地调用 ClearProperties 来清空嵌套的对象。对于其他类型的属性，它会将属性设置为适当的默认值。