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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 07.04.2011, 21:10   #1
Irina14
Новичок
Джуниор
 
Регистрация: 07.04.2011
Сообщений: 1
По умолчанию ошибка при компиляции проекта

Экзешник хорошо запускается на моем компе, стала изменять опции проекта(чтоб он там где нет билдера работал) возникла ошибка Must take address of a memory location. Помогите понять в чем дело и исправить. Вот код:
void __fastcall TInputData::Button1Click(TObject *Sender)
{
OpenDialog1->InitialDir = GetCurrentDir();
if (OpenDialog1->Execute()) {
AnsiString xFile = OpenDialog1->FileName,
xExt = xFile.SubString(xFile.Length()-2, 3);
if (xExt == "xls")
try {
ExcelApplication1->Connect();
ExcelApplication1->set_DisplayAlerts(0, false);
ExcelWorkbook1->ConnectTo(ExcelApplication1->Workbooks->Open(WideString(xFile).c_bstr()) );
ExcelWorksheet1->ConnectTo(ExcelWorkbook1->ActiveSheet);

Variant res;
res = ExcelWorksheet1->get_UsedRange(0)->get_Value2();
int l1 = res.ArrayLowBound(1),
u1 = res.ArrayHighBound(1),
l2 = res.ArrayLowBound(2),
u2 = res.ArrayHighBound(2);
Edit2->Text = u2 - l2;
Edit3->Text = 1;
Edit1->Text = u1 - l1 + 1;
StringGrid1->RowCount= StrToInt(Edit1->Text)+1;
StringGrid1->ColCount= StrToInt(Edit2->Text)+StrToInt(Edit3->Text)+1;
for(int i = 1; i < StringGrid1->ColCount; i++)
StringGrid1->Cells[i][0] = "x" + IntToStr(i);
for(int i = 1; i < StringGrid1->RowCount; i++)
StringGrid1->Cells[0][i] = IntToStr(i);
for (int i = l1; i <=u1 ; i++)
for (int j = l2; j <= u2; j++)
StringGrid1->Cells[j][i] = res.GetElement(i, j);

ExcelWorksheet1->Disconnect();
ExcelWorkbook1->Close();
ExcelWorkbook1->Disconnect();
ExcelApplication1->Quit();
ExcelApplication1->Disconnect();
ExcelApplication1->Disconnect();
} catch(...) {
};
}
}
Irina14 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка при компиляции 7B! Общие вопросы .NET 7 08.01.2010 13:11
Ошибка при компиляции проекта -=Virus=- Помощь студентам 3 12.10.2009 09:37
Прошу помочь разобраться с ошибками при компиляции проекта keeper555 Общие вопросы Delphi 4 27.03.2009 21:02
ошибка при компиляции opel.omega Общие вопросы Delphi 2 10.03.2009 08:26