Fórum RTTI com Delphi 2010. #378789

   TEmpresa = Class     ID: Integer;   end; 
   TCLiente = class      Empresa: TEmpresa      IDCliente : Integer   end;
   TFornecedor = class      Empresa: TEmpresa	  IDFornecedor: Integer   end;
   TDuplicata = class      Empresa: TEmpresa	  IDDup: Integer;	  Cliente : TCLiente      Fornecedor: TFornecedor   end;

Dup: TDuplicata;
Dup.Empresa.ID := 1;Dup.IdDup := 1;Dup.Cliente.IdCliente := 1;

unit uPessoa;
interface
uses
classes;

Type
  IPessoa = Interface
     function GetFId: Integer;
     procedure SetFId(const Value: Integer);
     property ID:Integer read GetFId write SetFId;
  End;

Type
 TCliente = Class(TInterfacedObject,IPessoa)
   private
    FId:Integer;
    function GetFId: Integer;
    procedure SetFId(const Value: Integer);
   published
    property ID:Integer read GetFId write SetFId;
 End;
 

implementation
{ TPessoa }
function TCliente.GetFId: Integer;
begin
result:=FId;
end;
procedure TCliente.SetFId(const Value: Integer);
begin
 FId:=value;
end;
end.

procedure TForm2.Button1Click(Sender: TObject);
var
  obj: IPessoa;
  MyCliente:TCliente;
  infoProps: TPropInfo;   //informaçõles sobre a propriedade
  plistaProps: PPropList; //ponteiro para array de ponteiros sobre informações da propriedade
  listaProps: TPropList;  //array de ponteiros para informações da propriedade
  i: integer;
  totalProps: integer;    //valor total de propriedades do objeto
  S,Propriedade,Tipo,Valor:string;
begin
  //sempre inicialize o ponteiro como nil
  plistaProps := nil;
  //setando algumas propriedades do nosso objeto
  obj := TCliente.Create;
  obj.ID:= 1;
  MyCliente:=(Obj as TCliente);
  try
    mTexto.Lines.Add('Propriedade:'+#9#9#9+'Tipo:'+#9#9#9 +'Valor');
    //a função  GetPropList seta o ponteiro para lista de propriedades e
    //também retorna o total de propriedades
    totalProps := GetPropList(MyCliente, plistaProps);
    //atribundo a  listaProps o valor armazenado no endereço plistaProps
    listaProps := plistaProps^;
    for I := 0 to totalProps - 1 do
      begin
      //atribuindo a infoProps o valor contido no endereço da posição i do vetor listaProps
      infoProps := listaProps[i]^;
      if canvas.TextWidth(infoProps.Name) < 46 then
        mTexto.Lines.Add(
             infoProps.Name+#9#9#9#9+infoProps.PropType^.Name+#9#9#9+
               varToStr(getPropValue(MyCliente, infoProps.Name)))
      else
         mTexto.Lines.Add(
           infoProps.Name+#9#9#9+infoProps.PropType^.Name+#9#9#9+
               varToStr(getPropValue(MyCliente, infoProps.Name)));
      end;
  finally
   //  obj.Free;  Trabalhando com Interface temos o contador de Referencia...
    //não podemos esquecer de liberar a memoria do ponteiro
    FreeMem(plistaProps);
  end;
end;