| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Обшуршивание компонент на предмет строк [D7, WinXP]
Still Swamp © (2008-02-01 13:16:00)Надо найти все строки во компоненте.
Получаю количество свойств:
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
Почесал репу. Очевидно если я найду свойство каким то типом - мне надо догадаться что это список строк и оббежать его отдельно.
Ткните плс пальцем в этот тип. Или расскажите как можно иначе решить проблему.
Still Swamp (2008-02-01 13:46:00) [1]Не... DFM мне не нужен.
За tkClass - сенкс.
Сергей М. (2008-02-01 13:42:00) [2]
> Ткните плс пальцем в этот тип
tkClass
Игорь Шевченко (2008-02-01 13:33:00) [3]у Юрия Зотова есть готовый компонент на эту тему. Разбирающий DFM на предмет свойств компонентов.
Попроси ?
Я его использовал именно в целях локализации проектов.
| |
