| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ошибки в коде [D7]

Novichok_New ©   (2007-02-25 14:11:00) 

Для передачи информации из 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
Подскажите, пожалуйста, ошибки!

---

Anatoly Podgoretsky   (2007-02-25 16:38:00) [1]

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

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

---

Palladin   (2007-02-25 15:21:00) [2]

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

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

---

Novichok_New   (2007-02-25 15:11:00) [3]

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 14:56:00) [4]

> 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:00) [5]

> Novichok_New ©   (25.02.07 14:55) [1]

к сожалению придется подучить паскаль и понимать, что такое области видимости переменных

---

Novichok_New   (2007-02-25 14:55:00) [6]

uses ComObj, ActiveX, Excel2000;

- пробовал!

---

Наверх