Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Слово Funсtion зарезервировано в дельфи. Как быть? [Delphi]

Nurik © (2004-10-16 18:49:00)
Выполняется следующий код:
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.Add(1);
ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Лист';
..............................
pt:=ExcelApp.Workbooks[1].ActiveSheet.PivotTableWizard
(SourceType :=1, SourceData:='Лист!A1:J10',
TableDestination:='', TableName:='сводная1');
pt.AddFields (RowFields:='Region');
pt.PivotFields('Town').Orientation := 4;
pt.PivotFields('Town'). Function:= 1;
и на последней строчке происходит ошибка. Думаю что слово Funсtion зарезервировано. Как выйти из положения?
Нашел функции OlePropertyGet и OlePropertySet но они не работают.

Nurik (2004-10-29 22:14:00) [1]
Все дошел ошибка-то лежала на поверхности,
вместо 1 надо было использовать -4112
А я зациклился на слове Function. оно у меня почему-то жирным выделяется и все.
Ну и начал в инете копать.
Во всем виновато выделение слова Fucntion жирным цветом.

Спс за подсказку.
Заметил что народ на данном форуме видит ошибку, но не хочет об этом говорить.

sergeyyy71 (2004-10-29 08:37:00) [2]
Почему не дошел? Дошел...
А что за агрегатная функция скрывается за цифрой 1?

Вобще все, что ты написал можно отладить и оно будет работать. Но я сам предпочитаю использовать экселевские шаблоны, в том числе для сводных таблиц. Меньше кода - меньше ошибок.

Nurik (2004-10-27 11:09:00) [3]
Неужели никто еще не дошел до сводных таблиц?

Poirot (2004-10-17 12:10:00) [4]
:)))
Эсли откопилялось без ошибок, то тут функтион совершенно не причём:) mind.drv :)))))

Cobalt (2004-10-17 01:01:00) [5]
> но они не работают.

Да ну? И чё, прям сразу синий экран?

Наверх

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