Aeeeeeee consegui resolver.
O problema era que faltava uma diretiva.
Segue o código.
---------------------------------------------------------------------------------------------------------------------
unit MD_PRFWK_Classe;
interface
{$M+} <-- faltava
type
TPRFWK_Classe = class(TObject)
---------------------------------------------------------------------------------------------------------------------
Viram? Faltava colocar o {$M+} para habilitar o RTTI, senão não funfa. Como
todas as classes herdam dessa minha classe, só precisei colocar nela.
Fica ai a dica.
2009/5/16 Paulo Coutinho <pa...@prsolucoes.com>
> O meu erro é exatamente este, ocorre em todos os delphi menos no 2009.
>
> http://qc.embarcadero.com/wc/qcmain.aspx?d=71837
>
>
>
>
>
>
> 2009/5/15 Paulo Coutinho <pa...@prsolucoes.com>
>
> Galera,
>>
>> To precisando de uma ajuda, não consegui resolver de jeito nenhum.
>>
>> Eu tenho um método em que verifica os atributos do objeto que passo por
>> parâmetro e tal.
>>
>> No delphi 2009 funciona perfeitamente, sendo que quando compilo no delphi
>> 2007 o mesmo codigo, sem mudar nada, acontece um access violation, e eu
>> ainda não entendi o porque.
>>
>> O estranho é que é exatamente o mesmo projeto.
>>
>> O mesmo problema ocorre no Delphi 7, exatamente na mesma linha.
>>
>> Segue o trecho do código (a ultima linha é onde ocorre o problema):
>>
>>
>> ----------------------------------------------------------------------------------------------------------------------------------
>> procedure TPRFWK_Gerente.montarEntidade(entidade: TPRFWK_Entidade);
>> var
>> x : Integer;
>> nomeAtributo : String;
>> lListaPropriedades : PPropList;
>> lContPropriedades : Integer;
>> PropInfo : TPropInfo;
>> lListaNomeAtributos : TStringList;
>> begin
>>
>> //verifica se já foi montado
>> if aClientDataSet.FieldCount > 0 then
>> begin
>>
>> //obtém informações dos atributos que são Publisheds
>> lContPropriedades := GetPropList(entidade.ClassInfo, tkAny,
>> nil); <- linha que ocorre o problema.
>>
>> ----------------------------------------------------------------------------------------------------------------------------------
>>
>> Será que alguém teria alguma solução?
>>
>> --
>> Atenciosamente,
>> Paulo Coutinho.
>> Blog: www.prsolucoes.com/blog
>> Site: www.prsolucoes.com
>> Msn: pa...@prsolucoes.com
>>
>
>
>
> --
> Atenciosamente,
> Paulo Coutinho.
> Blog: www.prsolucoes.com/blog
> Site: www.prsolucoes.com
> Msn: pa...@prsolucoes.com
>
--
Atenciosamente,
Paulo Coutinho.
Blog: www.prsolucoes.com/blog
Site: www.prsolucoes.com
Msn: pa...@prsolucoes.com
[As partes desta mensagem que não continham texto foram removidas]
