Delphi RTTI

gistfile1.txt

unit SystemConfigCommon;

type
  TSystemConfigCommon = class
  private
    function GetUseBatchQueries: Boolean;
  public
    property UseBatchQueries: Boolean read GetUseBatchQueries;
  end;	

function TSystemConfigCommon.GetUseBatchQueries: Boolean;
begin
  Result := Settings.ReadBool('Database', 'UseBatchQueries', True);
end;

unit frmSystemConfig;

procedure TSysConfigForm.ReadAllsettings;
var
  vConfig: TSystemConfig;
  vContext: TRttiContext;
  vType: TRttiType;
  vProperty: TRttiProperty;
  vMethod: TRttiMethod;
  vPropIndex: Integer;
  vSetting: TAtIniFile;
  i: Integer;
  vPropArray: TArray<TRttiProperty>;
begin
  vConfig := GetSystemConfig;
  vSetting := vConfig.Settings as TATInifile;
  vPropIndex := 0;
  vContext := TRttiContext.Create;
  try
    vType := vContext.GetType(vConfig.ClassType);
    vPropArray := vType.GetProperties;
    for i := 0 to High(vPropArray) do
    begin
      vProperty := vPropArray[i];
      if vProperty.Name <> 'Settings' then
      begin
        vMethod := vType.GetMethod('Get' + vProperty.Name);
        Assert(Assigned(vMethod), vProperty.Name + ' not found');
        tvAllSettings.DataController.AppendRecord;
        tvAllSettings.DataController.Values[vPropIndex, colAllSettingValue.Index]   := vMethod.Invoke(vConfig, []).ToString;   // Must be read first
        tvAllSettings.DataController.Values[vPropIndex, colSection.Index]           := vSetting.SettingSection;
        tvAllSettings.DataController.Values[vPropIndex, colAllSettingID.Index]      := vSetting.SettingIdentity;
        tvAllSettings.DataController.Values[vPropIndex, colTestSource.Index]        := vSetting.SettingSource;
        tvAllSettings.DataController.Values[vPropIndex, colAllSettingDefault.Index] := vSetting.SettingDefault;
        Inc(vPropIndex);
      end;
    end;
  finally
    vContext.Free;
  end;
end;