Текущий архив: 2007.03.18;
Скачать: CL | DM;

Вниз

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

← →
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;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.043 c