[rapashocker]

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

Код:

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]

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

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

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

[rapashocker]

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

[poli-smen]

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

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

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

[rapashocker]

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

[rapashocker]

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

[poli-smen]

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

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

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