[poli-smen]

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

Код:

.....
for j:=0 to pagecontrol1.PageCount-1 do
 HTMLDocument:=TWebbrowser(pagecontrol1.pages[j].Controls[0]).Document as IHTMLDocument2;
  PersistFile  := HTMLDocument as IPersistFile;
  PersistFile.Save(StringToOleStr('D:\'+pagecontrol1.Pages[j].Caption+'.html'), System.True);
end;
end.

В таком случае выдаёт ошибку "list index out of bounds (30) ", но конкретную строку не показывает.

Тело цикла состоящее более чем из одного оператора нужно заключать в begin..end. Сейчас у тебя в цикле выполняется только одна строка, остальные две уже после отработки цикла.