|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.04.2011, 21:10 | #1 |
Новичок
Джуниор
Регистрация: 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(...) { }; } } |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Ошибка при компиляции | 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 |