ListBox (количество строк)

[Vali_T]

Подскажите пожалуйста, как в Label отразить количество строк из ListBox?
Например: на форме расположены ListBox, Label, Button и Memo. В Memo загружается html код интернет страницы, кнопкой Button фильтрует нужные мне ссылки и помешает их в ListBox. Мне надо чтоб в Label, отразилось то количество ссылок (цифрой), которые отфильтровались в ListBox. Подскажите как это сделать.

[Shouldercannon]

var
count: integer;
begin
count:=ListBox1.Items.Count;
Label1.Caption:=intToStr(count);

[Vali_T]

Shouldercannon, я так понимаю это можно вставить в событие той же кнопки, которая фильтрует и помешает ссылки в ListBox?

[Shouldercannon]

Впринципе да, но поставить после того как закончится фильтрование.

[Vali_T]

ммм... а если у меня два ListBox? то...

procedure TForm1.ToolButton2Click(Sender: TObject);
var
Count: Integer;
begin // фильтруем
ListBox1.Items:=GetFilteredStrings( Memo1.Lines,Edit1.Text);
ListBox2.Items:=GetFilteredStrings( ListBox1.Items,Edit2.Text);
end;
begin // выводим количество
Count:=ListBox1.Items.Count;
Count:=ListBox2.Items.Count;
Label1.Caption:= IntToStr(Count);
Label2.Caption:= IntToStr (Count);
end;
правильно?

[Shouldercannon]

Можно и так

procedure TForm1.ToolButton2Click(Sender: TObject);
var 
Count: Integer;
begin // фильтруем 
ListBox1.Items:=GetFilteredStrings(Memo1.Lines, Edit1.Text);
ListBox2.Items:=GetFilteredStrings(ListBox1.Items, Edit2.Text);

Count:=ListBox1.Items.Count;
Count:=ListBox2.Items.Count;
Label1.Caption:= IntToStr(Count);
Label2.Caption:= IntToStr(Count);
end;

[Vali_T]

Спасибо, получилось