Форум: "Начинающим";
Текущий архив: 2007.03.18;
Скачать: [xml.tar.bz2];
ВнизОшибки в коде Найти похожие ветки
← →
Novichok_New © (2007-02-25 14:11) [0]Для передачи информации из ListView в Excel использую следующий код:
procedure ListToExcel(ListView: TListView);
var
row,i:integer;
Range,Sheet:VAriant;
begin
try
Excel:=CreateOleObject("Excel.Application");
except
raise Exception.Create("Невозможно поключиться к серверу Excel");
end;
Screen.Cursor:=crHourGlass;
Excel.SheetsInNewWorkBook:=1;
Excel.WorkBooks.Add;
Sheet:=Excel.Workbooks[1].Sheets[1];
Range:=Sheet.Columns;
Range.Columns[1].ColumnWidth:=30; //Количество Столбцов и их ширина
Range.Columns[n].ColumnWidth:=30;
Range.Columns[n+1].ColumnWidth:=30;
Range.Columns.Font.Size:=8;
Range:=Sheet.Range["a1:f1"];
Range.Font.Size:=15;
Range.Font.Bold:=True;
Range.Columns.Interior.ColorIndex:=6;
Range.HorizontalAlignment:=3;
Sheet.Cells[1,2]:="Данные на "+DateToStr(Date);//Заголовок
Range:=Sheet.Range["a2:f2"];
Range.Font.Size:=10;
Range.Font.Bold:=True;
Sheet.Cells[2,1]:="АА";//Названия столбцов
Sheet.Cells[2,n]:="ББ";
Sheet.Cells[2,n+1]:="вв";;
Row:=3;
for i :=0 to List.Items.Count-1 do begin
Sheet.Cells[Row,1]:=ListView.Items.Item[i].Caption;
Sheet.Cells[Row,2]:=ListView.Items.Item[i].SubItems[n];
Sheet.Cells[Row,3]:=ListView.Items.Item[i].SubItems[n+1];
inc(Row);
end;
Screen.Cursor:=crDefault;
if SaveDialog.Execute then Excel.WorkBooks[1].SaveAs(exs.FileName);//Сохраняем
Excel.Visible:=True;//Показываем Excel
end;
Возникает много ошибок:
Unit2.pas(134): Undeclared identifier: "Excel"
Unit2.pas(139): Missing operator or semicolon
Unit2.pas(144): Undeclared identifier: "n"
Unit2.pas(160): Undeclared identifier: "List"
Unit2.pas(167): Undeclared identifier: "SaveDialog"
Unit2.pas(167): "THEN" expected but identifier "Execute" found
Unit2.pas(174): Statement expected but end of file found
Подскажите, пожалуйста, ошибки!
← →
Novichok_New © (2007-02-25 14:55) [1]uses ComObj, ActiveX, Excel2000;
- пробовал!
← →
Palladin © (2007-02-25 14:56) [2]
> Unit2.pas(134): Undeclared identifier: "Excel"
неизвестный идентификатор Excel
> Unit2.pas(139): Missing operator or semicolon
пропущен оператор или точка с запятой
> Unit2.pas(144): Undeclared identifier: "n"
неизвестный идентификатор n
> Unit2.pas(160): Undeclared identifier: "List"
неизвестный идентификатор List
> Unit2.pas(167): Undeclared identifier: "SaveDialog"
неизвестный идентификатор SaveDialog
> Unit2.pas(167): "THEN" expected but identifier "Execute"
> found
THEN ожидалось, но найден идентификатор Execute
> Unit2.pas(174): Statement expected but end of file found
ожидалось что угодно, но не конец файла
← →
Palladin © (2007-02-25 14:56) [3]
> Novichok_New © (25.02.07 14:55) [1]
к сожалению придется подучить паскаль и понимать, что такое области видимости переменных
← →
Novichok_New © (2007-02-25 15:11) [4]1. неизвестный идентификатор Excel:
- я писал: uses Excel2000, ExcelXP, и Excel: TExcel.Application;
Что ещё можно сделать?
2. SaveDialog - я помещал на форму! Добивался, что "Unit2.pas(167): Undeclared identifier: "SaveDialog"" пропадало, но "Unit2.pas(167): "THEN" expected but identifier "Execute" found" - всё-равно остаётся!
И это, пожалуй, основное, что меня беспокоит!
← →
Palladin © (2007-02-25 15:21) [5]а меня беспокоит, что всякие чайники сев за руль во второй раз в жизни и нихрена не зная ПДД уже претендуют на профессиональное вождение
начни с задач попроще и последуй совету из [3]
← →
Anatoly Podgoretsky © (2007-02-25 16:38) [6]> Novichok_New (25.02.2007 14:11:00) [0]
Они у тебя перечислены, а вот нам неизвестно, где у тебя строка 134, 139 и так далее.
Кроме того читай книжки и задачу возьми попроще, например сложение двух чисел.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.03.18;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.04 c