Listview de aynı olan itemleri silmek?

[G.Arkas]

Merhaba arkadaşlar Bir rss reader yapımını tamamlamak üzereyim

Bir timer yardımıyla belirlediğim adresten verileri çekiyorum ancak her defasında listviewe aktardığından eski olan verileri silmek istiyorum.Bunu 2 timer ile yapabiliyorum ama daha kolay bir yöntem var mı acaba?

Örneğin ;

timer her dafasında belirlediğim aralıkla listviewe veri aktardığında eğer önceki veriler aynı ise aktarmasın yeni olan verileri akratsın ve 1. satıra eklesin yani


procedure ttimerontimer(sender object...)
var
l:tlistitem;
begin
l:=listview1.items.add;
..........
........
l.caption:=stitle;
l.subitems.add(sdesc);
l.subitems.add(slink);
bu şekilde xmldoc verisini listview e aktardım.

timer interval 50000 olsa 5 dakika sonra tekrar veri aktardığında diğer verileri üstüne yazılmasını nasıl sağlarım ve aynı olan verileride bunun içinden nasıl ayıklarım?

Teşekkürler....

[emin_as]

Aşagıdaki kod işini görür.

Kod: Tümünü seç

l:=listview1.FindCaption(0, stitle,true,true,false);
// findcaption verdigimiz captiono bulamazsa l nil dönecek
// eger bulursa l caption ın oldugu listitem olacak 
// bu durumda biz subitemsi silip, yenisiyle degiştirecegiz
if l = nil then  
begin
   l:=listview1.items.add;
   l.caption:=stitle;  
end;
l.subitems.clear;
l.subitems.add(sdesc);
l.subitems.add(slink);

[G.Arkas]

Çok teşekkür ederim Emin_As çalışıyor.İyi çalışmalar.

Pardon Emin_As kardeşim çalışmasına çalışıyor ancak biraz eksik yukarıda ki modülle aynı olan item eklenmiyor evet burası tamam ama yeni gelen başlığıda eklemiyor mecburen programı tekrar kapatıp açmam gerekiyor.Çözülmedi hala sorun?