[Delphi] Problem z Item.Caption

Mam problem, a mianowicie mam taki kod:
Item:= Lista.Items.Add; Item.SubItems.Add (EditNazwa.Text); Item.SubItems.Add (EditInformacje.Text);
Ten kod dałem aby w ListView wyświetliło mi to co mam w EditNazwa i EditInformacje. Niestety, ale chce w
Item.Caption:= costam.Text;
zrobić tak, aby w tym kodzie (Item.Caption:= costam.Text;) dodawało mi następny numer (od numeru 1 do końca)? Co trzeba dodać? Jestem początkuący w programowaniu więc prosze o wyrazumiałość.

Ps: Nie wiedziałem jak nazwać temat, jeśli źle - prosze o poprawę

---

Rozumiem, że dodajesz w pętli?
var count: integer; begin count := 0; ... count := count+1; ... Item:= Lista.Items.Add; Item.SubItems.Add (EditNazwa.Text); Item.SubItems.Add (EditInformacje.Text); Item.Caption:= count + ' ' + costam.Text; ... end;
Użytkownik pbnan edytował ten post 25 listopad 2006, 17:19

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl