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

← →
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 - сенкс.

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