[hatsub]

Есть ли возможность в TListBox к конкретной строке создать событие двойной клик мышью?
При этом мне нужно запомнить id строки в TListBox и нужно написать код события. Подскажите пожалуйста как это сделать?

[Assistant]

можно, через OnDblClick, и потом в процедуре делаешь проверку через case:
0: нажали на первую строку;
1: нажали на вторую
и т.д....

p.S.: подробнее опиши что именно нужно

[hatsub]

С листбоксом разберусь чуть позднее, мне для курсовой нужно 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; 


[hatsub]

Еще проблема в том что он находит этот <title>, но не первый по счету, а где то ближе к конце....Не знаю в чем дело

[Assistant]

а Pos или PosEx не пробовал использовать?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  c: string;
  n1,n2: integer;
  title: string;
begin
  c := IdHTTP1.Get('http://mobile-review.com.feedsportal.com/c/33244/f/557683/index.rss');
  if c = '' then
    ShowMessage('Ошибка'+#13+'невозможно получить html-код...')
  else
  begin
    n1 := Pos('<title>',c) + Length('<title>');
    n2 := Pos('</title>',c) - n1;
    title := Copy(c,n1,n2)
    ShowMessage(title);
  end;
end;

[hatsub]

Есть способ по проще, на панели internet есть XMLDocument1
насколько я понимаю прямая ссылка на rss ленту - xml.

нашел исходник как пример работы с xml:

PHP код:

procedure TForm1.Button3Click(Sender: TObject);
var b:string;
begin
XMLDocument1.LoadFromFile('http://mzilla.ru/news/rss');
XMLDocument1.Active := true;
b := XMLDocument1.DocumentElement.ChildNodes['lastBuildDate'].Text;
// "lastBuildDate" - присутствует в исходнике http://mzilla.ru/news/rss
XMLDocument1.Active := false;
//проверка
showmessage(b);
end; 


Выводит пустой showmessage, подскажие в чем проблема

[Assistant]

Код:

var
  b: string;
begin
  XMLDocument1.LoadFromFile('http://mobile-review.com.feedsportal.com/c/33244/f/557683/index.rss');
  XMLDocument1.Active := True;
  b := XMLDocument1.DocumentElement.ChildNodes['channel'].ChildValues['title'];
  XMLDocument1.Active := False;
  ShowMessage(b);
end;

[Assistant]

советую почитать вот это и вот ЭТО

[hatsub]

Код который Вы мне скинули работает, теперь проблема в том как перейти на след. тег ['title']. Их на стр. как минимум 10.

[Assistant]

яж написал ссылки, которые стоит почитать

[NumLock]

Код:

unit Unit1;

interface

uses
  msxml,
  ComObj,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  XMLHTTP: Variant;
  xmldomdocument: IXMLDOMDocument;
  xmldomnodelist: IXMLDOMNodeList;
  i: Integer;
begin
  XMLHTTP:=CreateOleObject('Microsoft.XMLHTTP');
  XMLHTTP.open('GET', 'http://mobile-review.com.feedsportal.com/c/33244/f/557683/index.rss', False);
  XMLHTTP.send('');
  if XMLHTTP.status=200 then
  begin
    xmldomdocument:=(IUnknown(XMLHTTP.responseXML) as IXMLDOMDocument);
    xmldomnodelist:=xmldomdocument.getElementsByTagName('title');
    for i:=0 to xmldomnodelist.length-1 do
      if xmldomnodelist[i].parentNode.nodeName='item' then
        Memo1.Lines.Add(xmldomnodelist.item[i].text);
  end;
end;

end.

http://data.cod.ru/93233

[hatsub]

Теперь у меня не большие проблемы с этим:

PHP код:

procedure TForm1.ListBox1DblClick(Sender: TObject);
begin

  case listbox1.Items of
  1: begin showmessage('DbClick по первой строке'); end;
  2: begin showmessage('DbClick по второй строке'); end;
  end;

end; 


Пишет ошибку: Unit1.pas(160): E2001 Ordinal type required

[Assistant]

listbox1.ItemIndex наверное

[hatsub]

и еще нумерация с нуля, спасибо огромное

[hatsub]

И все-таки возникает несколько проблем с ListBox
Как проверить пустой ли он?

if ListBox1.items[0]='' then

Пробовал еще с itemindex

пишет ошибку...

И еще вопрос как оформить текст/объект в виде ссылки..т.е. при клике открывался браузер...или это нужно еще много чего писать?