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

← →
Nurik (2004-10-16 18:49) [0]

Выполняется следующий код:
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 но они не работают.

← →
Cobalt © (2004-10-17 01:01) [1]

> но они не работают.

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

← →
Poirot © (2004-10-17 12:10) [2]

:)))
Эсли откопилялось без ошибок, то тут функтион совершенно не причём:) mind.drv :)))))

← →
Nurik (2004-10-27 11:09) [3]

Неужели никто еще не дошел до сводных таблиц?

← →
sergeyyy71 (2004-10-29 08:37) [4]

Почему не дошел? Дошел...
А что за агрегатная функция скрывается за цифрой 1?

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

← →
Nurik (2004-10-29 22:14) [5]

Все дошел ошибка-то лежала на поверхности,
вместо 1 надо было использовать -4112
А я зациклился на слове Function. оно у меня почему-то жирным выделяется и все.
Ну и начал в инете копать.
Во всем виновато выделение слова Fucntion жирным цветом.

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

Слово Funсtion зарезервировано в дельфи. Как быть? Найти похожие ветки