ListView.Items Artan Sıra Numarası [Çözüldü]

[Bygalaxy]

S.a arkadaşlar bir konu da takıldım fikirlerinizi ve yardımlarınızı bekliyorum..program da bir listview var ve editlerden giriş yaptırıyorum ve sildiriyorum burlarda herhangi bir sorun yok.

Listeye ekletirken bir şey yapmak istiyorum ama tam beceremedim.Örneğin

Sıra No Ad - Soyad - Tel
1 - Ali Veli 123
2 - Ahmet Mehmet 456
3 - Ayşe Fatma 789 gibi bu şekilde ekleme yapıyorum. Sıra numarasını listenin countuna göre artırarak yazdırıyordum.Secili itemi silme olayıda var.Asıl sorun sildikten sonra oluyor.Mesela 2 noluyu sildim dielim aradan yeni bir kayıt eklediğimde kaydın numarasını counta göre artırdığım için tekrar 3 oluyor.ItemIndex e göre yaptım onda da aynı şekilde oluyor.Yapmak istediğim olay bir nevi Editörlerde olduğu gibi otomatik artan ve aradan her hangi bir satır silindiğinde otomatik sayıların tekrar düzelmesi.Kayıt girdğimde en son sıra numarasından devam edecek ve bir kayıt sildiğimde tüm liste yenilenip tekrar 1-2-3.. gibi sıralanıp gidecek.anlatabilmişimdir inşallah yardımlarınız için şimdiden teşekkür ederim

Arkadaslar istediğim olayı ufak bir kodla hallettim.. sorunu çözdüm herkese teşekkürler

[Search]

Arkadaşım Çözmene sevindim ama merak eden arkadaşlar için çözümü paylaşırsan ii olmaz mı?

Bilgi Paylaşıldıkça Çoğalır

Kolay Gelsin..

[G.Arkas]

Arkadaşımız paylaşmamış ama ben farklı bir method önereyim

Kod: Tümünü seç

inc(artalan);
label1.caption := IntToStr(artalan);
if artalan = 1000 then
begin
artalan:= 0;
Exit;

Bu kod butona her tıkladığınız da label i bir artırır.
Bunu listview e uyarlayalım

Kod: Tümünü seç

var
l:tlistview;
artalan:integer=0;
begin
l:=listview1.items.add;
l.caption:=inttostr(artalan);

derseniz her eklenen items de 1. sütun yani "l.caption" 1 artar ve satıra eklenir.
sınırlandırma getirmek isterseniz

if artalan=50 then
begin
artalan:=0; ( 50 ye kadar satır numara sınırı tanımladık)
exit;

iyi çalışmalar.