3

estou com dúvidas de como obter, via RTTI, o valor de uma propriedade de um objeto que é propriedade de outro. Segue a baixo dois objetos e seus relacionamentos. Neste exemplo gostaria de obter o valor de S de P1.

TPropriedade = class
strict private
  fS: string;
  fI: Integer;
  procedure SetS(const Value: string);
public
  constructor Create(S: string; I: Integer);
published
  property S: string read fS write SetS;
  property I: Integer read fI;
end;

TObjeto = class
strict private
  fP1: TPropriedade;
  fP2: TPropriedade;
public
  constructor Create;
published
  property P1: TPropriedade read fP1 write fP1;
  property P2: TPropriedade read fP2 write fP2;
end;

implementation

{ TPropriedade }

constructor TPropriedade.Create(S: string; I: Integer);
begin
  fS:= S;
  fI:= I;
end;

procedure TPropriedade.SetS(const Value: string);
begin
  fS:= Value;
end;

{ TObjeto }

constructor TObjeto.Create;
begin
  fP1:= TPropriedade.Create('P1', 1);
  fP2:= TPropriedade.Create('P2', 2);
end;

1 Resposta 1

5

Depois de pesquisar muito (3 dias!) acabei descobrindo a solução junto com um colega de trabalho. Segue a baixo um exemplo da solução implementado dentro de um onClick e um botão

procedure TForm1.Button1Click(Sender: TObject);
var
  contexto: TRttiContext;
  TypObj:   TRttiType;
  Prop:     TRttiProperty;
  SubProp:  TRttiProperty;

  obj: TObjeto;
begin
  obj:= TObjeto.Create;

  contexto:= TRttiContext.Create.Create;

  TypObj:= contexto.GetType(obj.ClassInfo);

  Prop:= TypObj.GetProperty('P1');
  SubProp:= Prop.PropertyType.GetProperty('S');

  ShowMessage(SubProp.GetValue(Prop.GetValue(obj).AsObject).ToString);
end;

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .