PowerPoint ошибка!

rapashocker · #1 14.05.2014, 12:38

Привент всем помогите ошибочку исправить плиз вот написал для открытия презинтации и перелистывания ее, но вот загвоздка одна ошибочка я ее не пойму никак))

Код:

procedure TPrez.sButton1Click(Sender: TObject);
 
var
  PowerPointApp: OLEVariant;
begin
 
   PowerPointApp := CreateOleObject('PowerPoint.Application');
 
PowerPointApp.Visible := True;
PowerPointApp.Presentations.Open(((ExtractFilePath(ParamStr(0))+'\Теория\антивирусные программы.pptx', False, False, True);
 PowerPointApp.ActivePresentation.SlideShowSettings.Run;
    PowerPointApp.ActivePresentation.SlideShowWindow.View.Next;
end;
end.

expected ' ,' found в этйо строке PowerPointApp.Presentations.Open(((ExtractFilePath (ParamStr(0))+'\Теория\антивирусные программы.pptx', False, False, True);

poli-smen · #2 14.05.2014, 13:20

Цитата:

Сообщение от rapashocker

expected ' ,' found в этйо строке PowerPointApp.Presentations.Open(((ExtractFilePath (ParamStr(0))+'\Теория\антивирусные программы.pptx', False, False, True);

Напутал с параметрами - посчитай - открывающих скобочек 5, а закрывающих только 3.

rapashocker · #3 14.05.2014, 13:34

Он показывает мне каретку между '\Теория\антивирусные программы.pptx',и дальнейшим кодом в строке

poli-smen · #4 14.05.2014, 13:39

Цитата:

Сообщение от rapashocker

Он показывает мне каретку между '\Теория\антивирусные программы.pptx',и дальнейшим кодом в строке

Правильно показывает, я же говорю - слишком много открывающих скобок - компилятор ожидает в этом месте 2 закрывающие скобки (чтобы компенсировать лишние открывающие скобки), а вместо этого он видит в этом месте запятую.

rapashocker · #5 14.05.2014, 13:44

Т.е вместо запятой ставить 2 скобки и потом запятую

rapashocker · #6 14.05.2014, 13:47

все работает так и сделал)))

poli-smen · #7 14.05.2014, 13:47

Цитата:

Сообщение от rapashocker

Т.е вместо запятой ставить 2 скобки и потом запятую

Может лучше вместо этого убрать 2 лишние открывающие скобки? Или для какой цели они нужны - для большего запутывания кода?

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты

Этот пользователь сказал Спасибо poli-smen за это полезное сообщение:
rapashocker (14.05.2014)