Como pegar o Endereço de memória

Delphi

25/05/2005

Bom Dia pessoal,

alguem poderia me dizer como pegar o Endereço de Memória do QRDBText do componente QuickReport?


Douglasf

Douglasf

Curtidas 0

Respostas

Massuda

Massuda

25/05/2005

Como geralmente não há necessidade de obter o endereço de um componente... você poderia explicar melhor seu problema?


GOSTEI 0
Douglasf

Douglasf

25/05/2005

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.


GOSTEI 0
Massuda

Massuda

25/05/2005

Quando você escreve...
var
  UmObjeto: TMeuObjeto;
...a variável UmObjeto é na verdade um ponteiro para um objeto da classe TMeuObjeto.

Assim, seu record pode ser simplesmente...
type
  TipoItem = record
    chave : Integer;
    Reg : TQRDBText;
  end;
  ...
...onde Reg pode ser inicializado fazendo:
var
  Item: TipoItem;
...
  Item.Reg := SeuReport.UmQRDBText;
...



GOSTEI 0
POSTAR