Delphi FAQ >> ООП и Компоненты Delphi
Бывает, при разработке программы, требуется проверить, поддерживает ли данный объект некоторое свойство. Как один из вариантов — можно воспользоваться функцией GetPropInfo из модуля TypInfo, которое возвращает информацию о заданном свойстве указанного объекта, либо nil, если свойство не поддерживается. Вот готовая функция на Delphi, которая возвращает true или false в зависиммости от наличия свойства в объекте:
...
uses Typinfo;
...
function PropertyExists(aObject: TObject; aPropertyName: String): Boolean;
begin
Result := (GetPropInfo(aObject.ClassInfo, aPropertyName) <> nil);
end;
Продвижение сайта в Интернете уже не роскошь, а жизненная необходимость. Сейчас раскрутка сайта требуется прежде всего коммерческим сайтам, чтобы повысить количество продаж своего продукта или услуги.