Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  210

•  TDictionary Custom Sort  3 370

•  Fast Watermark Sources  3 123

•  3D Designer  4 881

•  Sik Screen Capture  3 382

•  Patch Maker  3 583

•  Айболит (remote control)  3 687

•  ListBox Drag & Drop  3 051

•  Доска для игры Реверси  81 982

•  Графические эффекты  3 981

•  Рисование по маске  3 282

•  Перетаскивание изображений  2 656

•  Canvas Drawing  2 793

•  Рисование Луны  2 611

•  Поворот изображения  2 225

•  Рисование стержней  2 180

•  Paint on Shape  1 583

•  Генератор кроссвордов  2 257

•  Головоломка Paletto  1 782

•  Теорема Монжа об окружностях  2 262

•  Пазл Numbrix  1 696

•  Заборы и коммивояжеры  2 069

•  Игра HIP  1 289

•  Игра Go (Го)  1 244

•  Симулятор лифта  1 486

•  Программа укладки плитки  1 228

•  Генератор лабиринта  1 560

•  Проверка числового ввода  1 377

•  HEX View  1 505

•  Физический маятник  1 364

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Как определить, есть ли некоторое свойство у объекта



Автор: Nomadic


TypInfo.GetPropInfo (My_Component.ClassInfo, 'Hint') <> nil 

Таким образом можно узнать наличие таковой published "прОперти". А вот если это не поможет, то можно и "ломиком" поковыряться посредством FieldAddress. Однако этот метод дает адрес полей, которые перечисляются сразу после объявления класса как в unit'ых форм. А вот ежели "прОперть" нигде не "засветилась" (published) то фиг ты ее достанешь.

А модифицировать значение можно посредством прямой записи по адресу FieldAddress (крайне нежелательно!) либо используя цивилизованный способы, перечисленные в unit'е TypInfo.

Модифицировать кучу объектов можно организовав цикл перебора оных с получением в цикле PropertyInfo объекта и записи в объект на основе PropInfo.








Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте