[Neftali [Germán.Estévez]]

Es una sencilla función que devuelve True o False segun si un componente (TObject) tiene una propiedad published o no.
Utiliza RTTI así que hay que hay que añadir al USES la unit TypInfo.

Código Delphi [-]
// Devuelve si existe o no una propiedad en un Objeto (RTTI).
function ExistProp(Instance: TObject; const PropName: string):Boolean;
var
  PropInfo: PPropInfo;
begin
  // Busca la propiedad y devuelve segun si la estructura = nil
  PropInfo := GetPropInfo(Instance, PropName);
  Result := not (PropInfo = nil);
end;

Para probarla podéis añadir un código similar a este:

Código Delphi [-]
  // Tiene la propiedad Lines?
  if ExistProp(Memo1, 'Lines') then begin
    ...