(*************************************************** Ant Movie Catalog importation script www.antp.be/software/moviecatalog/ [Infos] Authors=Peter Varju (varjupe@gmail.com) & bad4u, Zsolt Kovács Title=port.hu Description=Imports hungarian titles and description from port.hu site Site=port.hu Language=HU Version=4.3 Requires=3.5.0 Comments=Last modification: 2021.02.10 License=This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. | GetInfo=1 RequiresMovies=1 [Options] Alapértelmezett nyelv=1|1|1=Nincs alapértelemezett|2=Magyar|3=Angol [Parameters] ***************************************************) program PortHU5; var MovieName, MovieURL: string; BeginPos, EndPos: Integer; function FindLine(Pattern: string; List: TStringList; StartAt: Integer): Integer; var i: Integer; begin result := -1; if StartAt < 0 then StartAt := 0; for i := StartAt to List.Count-1 do if Pos(Pattern, List.GetString(i)) <> 0 then begin result := i; Break; end; end; function GetName(Page: TStringList; SearchStr: string): string; var i: Integer; Line, Value, Temp: string; LineNr: Integer; BeginPos, EndPos: Integer; begin result := ''; Value := ''; LineNr := FindLine('