Ошибки в коде

← →
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" - всё-равно остаётся!

И это, пожалуй, основное, что меня беспокоит!

а меня беспокоит, что всякие чайники сев за руль во второй раз в жизни и нихрена не зная ПДД уже претендуют на профессиональное вождение

начни с задач попроще и последуй совету из [3]

> Novichok_New (25.02.2007 14:11:00) [0]

Они у тебя перечислены, а вот нам неизвестно, где у тебя строка 134, 139 и так далее.
Кроме того читай книжки и задачу возьми попроще, например сложение двух чисел.

Ошибки в коде Найти похожие ветки