Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.11.02;
Скачать: 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 вся ветка

Текущий архив: 2008.11.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.012 c
2-1222244324
grav
2008-09-24 12:18
2008.11.02
Не работает переход по Tab


2-1221122040
RTF to TXT
2008-09-11 12:34
2008.11.02
Перевести большой текст RFT в текст кодировки Win1251


15-1221060690
keymaster
2008-09-10 19:31
2008.11.02
как избавиться от хинта?


11-1194956757
tigra
2007-11-13 15:25
2008.11.02
вкладки


2-1221909236
MZG
2008-09-20 15:13
2008.11.02
Как добавить записи поля из базы?