Delphi 中使用反射來清空一個類及其嵌套類的屬性

在 Delphi 中使用反射來清空一個類及其嵌套類的屬性是一個相對高級的技術。反射允許你在運行時動態(tài)地訪問對象的屬性和方法。以下是一個使用反射來清空類屬性的例子：

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 是一個遞歸函數(shù)，它接受一個 TObject 類型的參數(shù)，并使用反射來遍歷該對象的所有屬性。對于類類型的屬性，它會遞歸地調用 ClearProperties 來清空嵌套的對象。對于其他類型的屬性，它會將屬性設置為適當?shù)哪J值。