Скачать: CL | DM;

Обшуршивание компонент на предмет строк   Найти похожие ветки 

← →
Still Swamp   (2008-02-01 13:16) [0]

Надо найти все строки во компоненте.
Получаю количество свойств:
Count := GetTypeData(AComponent.ClassInfo)^.PropCount;

Далее заглядываю в каждое на предмет его типа:
case PropInfo^.PropType^.Kind of
tkLString: WriteResource(AComponent, PropInfo^.Name, GetStrProp(AComponent, propInfo), AIniFile);
end;
Если tkLString то пишу в инифайл.

Все нормально. Теперь как быть со списком стрингов? Я заглянул в DFM. Там для список сторк вот так отображен: Items.Strings = ("1" "2" "3" "4" "5" "6").
Поглядел на список типов свойств:
 tkUnknown, tkInteger, tkChar, tkEnumeration, tkFloat,
 tkString, tkSet, tkClass, tkMethod, tkWChar, tkLString, tkWString,
 tkVariant, tkArray, tkRecord, tkInterface, tkInt64, tkDynArray

Почесал репу. Очевидно если я найду свойство каким то типом - мне надо догадаться что это список строк и оббежать его отдельно.

Ткните плс пальцем в этот тип. Или расскажите как можно иначе решить проблему.

---

← →
Игорь Шевченко ©   (2008-02-01 13:33) [1]

у Юрия Зотова есть готовый компонент на эту тему. Разбирающий DFM на предмет свойств компонентов.

Попроси ?

Я его использовал именно в целях локализации проектов.

---

← →
Сергей М. ©   (2008-02-01 13:42) [2]

> Ткните плс пальцем в этот тип


tkClass

---

← →
Still Swamp   (2008-02-01 13:46) [3]

Не... DFM мне не нужен.
За tkClass - сенкс.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c