С листбоксом разберусь чуть позднее, мне для курсовой нужно rss reeder написать... Возможно перемудрил, но все строки прокомментированы.
Все работает за исключением: не могу найти номер строки где идет закрывающий тег </title>(до какого символа использовать функцию copy())
Прошу помочь:
PHP код:
procedure TForm1.Button1Click(Sender: TObject);
begin
c:=IdHTTP1.Get('http://mobile-review.com.feedsportal.com/c/33244/f/557683/index.rss');
if c='' then showmessage('Ошибка'+#13+'невозможно получить html-код...')
else
begin
n:=length(c);
for i:=1 to n do
begin
temp:=c[i]+c[i+1]+c[i+2]+c[i+3]+c[i+4]+c[i+5]+c[i+6]; // <title>
tempclose:=c[i]+c[i+1]+c[i+2]+c[i+3]+c[i+4]+c[i+5]+c[i+6]+c[i+7]; // </title>
if temp='<title>' then
begin
//отсчитываем цикл начинаю от i и далее дабы найти закрывающий тег не перескакиваю в задницу
//например i = 265
for j:=i to n do
begin
if tempclose='</title>' then
begin
//находим номер до какого вкл функцию copy
title:=copy(c,i+7,j-1);
end;
end;
end;
end;
//проверка
showmessage('defined <title>');
showmessage(title);
end;
end;