Fórum Delphi TypeInfo: Função GetPropInfo não encontra a propriedade Text do componente DBEdit #558964

Prezados,

Preciso testar se a propriedade X existe em um determinado componente instanciado no formulário.

Criei uma função que recebe o componente como parâmetro e testa-o com GetPropInfo.

Ocorre que ao testar se existe a propriedade 'TEXT' em um componente do tipo TDBEdit, a GetPropInfo retorna NIL. Como é sabido, utiliza-se utiliza-se o text e EditText normalmente em componentes DBEdits.

Existe também a função IsPublishedProp que retorna True se a propriedade existe. Mas também não funcionou pois retorna false para 'Test' e 'EditText'.

Alguém conhece alguma outra função ou solução para testar se determinada propriedade existe no componente?

Antecipadamente agradeço qualquer ajuda/esclarecimento.


Segue um exemplo:

function ExistePropriedade(componente: TComponent; Propriedade: String): Boolean;
var
PropInfo: PPropInfo;
begin
Result := False;

if Assigned(componente) then
begin
PropInfo := GetPropInfo(componente.ClassInfo, Propriedade); // Se eu passar DBEdit e propriedade 'Text' ou 'EditText', retorna nil.
if not Assigned(PropInfo) then
result := False
end;
end.