На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
! user posted image
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Соблюдайте общие правила форума

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как запустить программу/файл? (и дождаться ее завершения)
5. Как перехватить API-функции, поставить hook? (перехват сообщений от мыши, клавиатуры - внедрение в удаленное адресное прстранство)
... (продолжение следует) ...
Внимание:
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки - бан.
Мат в разделе - бан на три месяца...
Полезные ссылки:
user posted image MSDN Library user posted image FAQ раздела user posted image Поиск по разделу user posted image Как правильно задавать вопросы

Выразить свое отношение к модераторам раздела можно здесь: user posted image Rouse_, user posted image Krid

Модераторы: Rouse_, Krid
Страницы: (2) 1 [2]  все  ( Перейти к последнему сообщению )  
> Delphi и Excel 2007
RuSA
Сообщ. #16 ,

    Profi
    *****
    Профиль · PM
    Рейтинг (т): 101
    Цитата ScoobyDoo @

    заменил 0 на 1:
    xV := Form1.App.Charts[i].SeriesCollection.Item(1).XValues;

    - работает нормально, без ошибок...но что это даёт?


    А вот что:
    1) индексация Form1.App.Charts[i].SeriesCollection.Item(...) начинается от единицы (у Масдая все через одно место);
    2) выражение Form1.App.Charts[i].SeriesCollection.Item(1).XValues корректно отработано !

    Следовательно исходная проблема выражения:
    Form1.App.Charts[i].SeriesCollection.Item(1).XValues := v5;
    в некорректной правой части. Значение v5 некорретно !
    ScoobyDoo
    Сообщ. #17 ,
      Unregistered
      Цитата RuSA @
      Цитата ScoobyDoo @

      заменил 0 на 1:
      xV := Form1.App.Charts[i].SeriesCollection.Item(1).XValues;

      - работает нормально, без ошибок...но что это даёт?


      А вот что:
      1) индексация Form1.App.Charts[i].SeriesCollection.Item(...) начинается от единицы (у Масдая все через одно место);
      2) выражение Form1.App.Charts[i].SeriesCollection.Item(1).XValues корректно отработано !

      Следовательно исходная проблема выражения:
      Form1.App.Charts[i].SeriesCollection.Item(1).XValues := v5;
      в некорректной правой части. Значение v5 некорретно !

      Каким образом оно может быть некоректно? если он просто получается:
      ExpandedWrap disabled
        v5 := v1.Range[v1.Cells[HomeRow-1,HomeColumn], v1.Cells[HomeRow-1,Column-1]];


      извините, но просто не понимаю...что тут как надо исправить, чтобы заработало? ведь в 2003 офисе всё работает
      RuSA
      Сообщ. #18 ,

        Profi
        *****
        Профиль · PM
        Рейтинг (т): 101
        Цитата ScoobyDoo @
        Каким образом оно может быть некоректно?

        Имея в виду выражение (1):
        ExpandedWrap disabled
             Form1.App.Charts[i].SeriesCollection.Item(1).XValues := v5;

        рассмотрим только факты. В силу того, что выражение слева корректно, потому что:
        Цитата RuSA @
        xV := Form1.App.Charts[i].SeriesCollection.Item(1).XValues;
        - работает нормально, без ошибок

        , а присвоение (1) нет, причем с ошибкой "несовпадение типов данных", ясно что проблема в правой части, либо
        слева надо прописать что-то еще, например .Range или .Value:
        ExpandedWrap disabled
             Form1.App.Charts[i].SeriesCollection.Item(1).XValues.Range := v5;

        ;)
        P.S. Такое происходит потому-что "дятел" VB самостоятельно может использовать .Value или более обощенно - "свойство по умолчанию"
        для данного объекта, когда посчитает нужным. Именно поэтому (и не только), считаю что на VB пишут мазохисты :)
        ScoobyDoo
        Сообщ. #19 ,
          Unregistered
          Цитата RuSA @
          Цитата ScoobyDoo @
          Каким образом оно может быть некоректно?

          Имея в виду выражение (1):
          ExpandedWrap disabled
               Form1.App.Charts[i].SeriesCollection.Item(1).XValues := v5;

          рассмотрим только факты. В силу того, что выражение слева корректно, потому что:
          Цитата RuSA @
          xV := Form1.App.Charts[i].SeriesCollection.Item(1).XValues;
          - работает нормально, без ошибок

          , а присвоение (1) нет, причем с ошибкой "несовпадение типов данных", ясно что проблема в правой части, либо
          слева надо прописать что-то еще, например .Range или .Value:
          ExpandedWrap disabled
               Form1.App.Charts[i].SeriesCollection.Item(1).XValues.Range := v5;

          ;)
          P.S. Такое происходит потому-что "дятел" VB самостоятельно может использовать .Value или более обощенно - "свойство по умолчанию"
          для данного объекта, когда посчитает нужным. Именно поэтому (и не только), считаю что на VB пишут мазохисты :)

          Попробовал и
          ExpandedWrap disabled
               Form1.App.Charts[i].SeriesCollection.Item(1).XValues.Range := v5;
          ,
          и
          ExpandedWrap disabled
               Form1.App.Charts[i].SeriesCollection.Item(1).XValues.Value := v5;

          ...всё без толку...в этих случаях вылазиет ошибка
          Invalid variant operation

          Ну подсобите мне, пожалуйста....башка уже болит об стенку биться -(
          RuSA
          Сообщ. #20 ,

            Profi
            *****
            Профиль · PM
            Рейтинг (т): 101
            Раз экспериментировать не позволяет религия, предлагаю просто поискать ИНТЕРФЕЙСЫ для нужной версии Ofiice'а.
            И совсем отказаться от использования "диких" runtime OLE-вызовов через варианты.
            Это уже многие советовали давным давно. Будет все гораздо проще, т.к. контроль 95% проблем возьмет на себя компилятор.
            0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
            0 пользователей:
            Страницы: (2) 1 [2]  все


            Рейтинг@Mail.ru
            [ Script execution time: 0,1808 ]   [ 16 queries used ]   [ Generated: 19.08.25, 01:21 GMT ]  
            Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.