-
Надо найти все строки во компоненте. Получаю количество свойств: 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
Почесал репу. Очевидно если я найду свойство каким то типом - мне надо догадаться что это список строк и оббежать его отдельно.
Ткните плс пальцем в этот тип. Или расскажите как можно иначе решить проблему.
-
у Юрия Зотова есть готовый компонент на эту тему. Разбирающий DFM на предмет свойств компонентов.
Попроси ?
Я его использовал именно в целях локализации проектов.
-
> Ткните плс пальцем в этот тип
tkClass
-
Не... DFM мне не нужен. За tkClass - сенкс.
|