Конференция "Основная" » Обшуршивание компонент на предмет строк [D7, WinXP]
 
  • Still Swamp (01.02.08 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

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

    Ткните плс пальцем в этот тип. Или расскажите как можно иначе решить проблему.
  • Игорь Шевченко © (01.02.08 13:33) [1]
    у Юрия Зотова есть готовый компонент на эту тему. Разбирающий DFM на предмет свойств компонентов.

    Попроси ?

    Я его использовал именно в целях локализации проектов.
  • Сергей М. © (01.02.08 13:42) [2]

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


    tkClass
  • Still Swamp (01.02.08 13:46) [3]
    Не... DFM мне не нужен.
    За tkClass - сенкс.
 
Конференция "Основная" » Обшуршивание компонент на предмет строк [D7, WinXP]
Есть новые Нет новых   [134482   +34][b:0][p:0]