Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > C++ Builder
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.10.2011, 13:58   #1
Екатерина_21
Пользователь
 
Регистрация: 03.08.2011
Сообщений: 18
Восклицание Проблема с OpenDialog!!!!

С помощью OpenDialog у меня происходит открытие документа. Вот так:
Код:
if (OpenDialog1->Execute())
{
var_Excel=CreateOleObject("Excel.Application");
var_Excel.OlePropertyGet("Application").OlePropertyGet("Workbooks").OleProcedure("Open" , OpenDialog1->FileName.c_str() );   var_Excel.OlePropertySet("Visible",false);
var_Sheet = var_Excel.OlePropertyGet("ActiveSheet");

for (Row_Counter ; Row_Counter <= Max_Row ; Row_Counter++)
    {
      for (Column_Counter ; Column_Counter <= Max_Column  ; Column_Counter++)
          {

    StringGrid1->Cells[Column_Counter][Row_Counter] =
            var_Sheet.OlePropertyGet("Cells").OlePropertyGet("Item", Row_Counter + 1 , Column_Counter + 1);
          }
          Column_Counter = 0;
    }
var_Excel.OlePropertyGet("Application").OleProcedure("Quit");
var_Sheet = Unassigned;
var_Excel = Unassigned;
 }
Первый раз все открывает нормально, но когда я пытаюсь уже на второй панели открыть другой файл и занести
Код:
 StringGrid2->Cells[Column_Counter][Row_Counter] =
             var_Sheet.OlePropertyGet("Cells").OlePropertyGet("Item", Row_Counter + 1 , Column_Counter + 1);
ТО НИЧЕГО НЕ ПРОИСХОДИТ!!!!
УЖЕ НИЧЕГО НЕ ОТКРЫВАЕТ.

Пробывала другой Opendialog добавить и через него открыть - тоже ничего.

Кто понял, в чем проблема, подскажите, пожалуйста, где ошибка!))))

Последний раз редактировалось Stilet; 09.10.2011 в 14:04.
Екатерина_21 вне форума Ответить с цитированием
Старый 09.10.2011, 14:05   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

В таких случаях прост ставят точку прерывания - в твоем случае на if (OpenDialog1->Execute())
И смотрят как программа дальше по шагам себя поведет.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 09.10.2011, 14:21   #3
Екатерина_21
Пользователь
 
Регистрация: 03.08.2011
Сообщений: 18
По умолчанию

У меня не особо получается отследить, в чем проблема таким образом. Может есть другой выход?
Екатерина_21 вне форума Ответить с цитированием
Старый 09.10.2011, 15:12   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Может есть другой выход?
Врядли... По крайней мере на глаз я не вижу проблем. Так что трассируй код, и не ломайся
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема с иконкой в трее и OpenDialog Dop Общие вопросы Delphi 2 05.08.2011 14:48
OpenDialog NitroSki Компоненты Delphi 4 08.06.2011 08:52
OpenDialog Smerch66 Общие вопросы Delphi 11 27.03.2010 10:08
Проблема OpenDialog и ifstream yuriyua Помощь студентам 1 14.10.2009 19:20
OpenDialog.Options:=OpenDialog.Options+[ofAllowMultiSelect]; necky Компоненты Delphi 2 11.08.2007 12:53