Подправил скрипт, а то добавляеться постоянно "... слова" в жанр. Функция AddMediaInfo ;) const csKinopoiskTitle = '<title>(.*?)</title>'; csKinopoiskImage = 'src="([^"]*/images/film.*?/.*?)"'; csKinopoiskOriginalName = '<span style="color: \#666; font-size: 13px">...

DmitriiP , что то типо этого var i: Integer; Item1,itemvideo,itemallvideo: THmsScriptMediaItem; procedure WriteString(const aStr: string); begin if aStr <> '' then WebPageText := WebPageText + aStr end; procedure WriteLine(const aText: string); begin WriteString(aText + #13#10) end; begin WriteLine...