Como pegar o Endere�o de mem�ria

Question

Bom Dia pessoal,alguem poderia me dizer como pegar o Endere�o de Mem�ria do QRDBText do componente QuickReport?...

Massuda · Answer

Como geralmente n�o h� necessidade de obter o endere�o de um componente... voc� poderia explicar melhor seu problema?...

Douglasf · Answer

Explico sim...

Na verdade minha inten��o � fazer uma �gambiarra� para que o usu�rio defina qtos campos ir�o aparecer no relat�rio e sua ordena��o.

Para isso contrui uma lista encadeada onde o item � um ponteiro do tipo TQRDBText. E desta forma fica mais f�cil de se trabalhar onde vai ficar cada coisa.

entendeu??

olha o c�digo :

type
  TipoItem = record
    chave : Integer;
    Reg : ^TQRDBText;
  end;
  Apontador = ^Campo;
  campo = Record
    Item : TipoItem;
    prox : Apontador;
  end;
  TipoLista = Record
    Primeiro : Apontador;
    Ultimo : Apontador
  end;

obs : Creio que isto n�o seja a melho solu��o.

Massuda · Answer

Quando voc� escreve...[code:1:2cb28ae066]var  UmObjeto: TMeuObjeto;[/code:1:2cb28ae066]...a vari�vel UmObjeto � na verdade um ponteiro para um objeto da classe TMeuObjeto.Assim, seu record pode ser simplesmente...[code:1:2cb28ae066]type  TipoItem = record    chave : Integer;    Reg : TQRDBText;  end;  ...[/code:1:2cb28ae066]...onde Reg pode ser inicializado fazendo:[code:1:2cb28ae066]var  Item: TipoItem;...  Item.Reg := SeuReport.UmQRDBText;...[/code:1:2cb28ae066]...

F�rum Como pegar o Endere�o de mem�ria #282912