antp.be forum

Jest tylko jedna taka procedura od wiersza 2351. Mam nadzieję, że zastąpiłeś starą procedurę nową. Nie masz obu, tzn starej i tej z poprzedniej strony

Dziwne, bo u mnie wyszukuje po tytule. Najlepiej skopiować tą procedurę (jest cała) i wkleić do skryptu. Pozdrawiam

Teraz wyszukuje również po tytule filmu. Trzeba zastosować poprawkę z poprzedniej strony, na samym dole.

Tak to ma wyglądać procedure GetMovieTitles(Address: string);
var
Page: TStringList;
Line, Year, MovieTitle, MovieAddress: string;
LineNr: integer;
begin
Page := TStringList.Create;
Page.Text := UTF8ToCP1250(GetPage(Address));
Page.Text := StringReplace(Page.Text, 'class="preview__link"', #13 ...