Broj redova u TListBox?

[ inherited @ 16.06.2006. 15:19 ] @

Kako bi mogao prikazati broj redova u TListBox, ali ne ukupan, nego svaki red da ima svoj broj? Npr.:
1. nesto
2. nesto
...
n. nesto

[ IvanBeograd @ 16.06.2006. 22:09 ] @

Pa mozes da kad dodajes item-e da dodas i redni broj,npr

Code:

ListBox1.Items.Add(IntToStr(ListBox1.Items.Count) + ' nesto');

Pozzz

[ inherited @ 16.06.2006. 22:50 ] @

OK je ovo, ali, kad ubacim nesto, npr.:

Code:
If OpenDialog1.Execute Then ListBox1.Items.Add(IntToStr(ListBox1.Items.Count)+'. '+OpenDialog1.FileName);

tad u TListBox1 to izgleda ovako:
0. D:\...
1. D:\...
10. D:\...
...
19. D:\...
2. D:\...

... itd.

Hteo bih da to izgleda ovako:

01. D:\...
02. D:\...
...
10. D:\...
11. D:\...
...
20. D:\...
...
i tako redom...

[ Miloš Baić @ 16.06.2006. 23:00 ] @

Code:

If OpenDialog1.Execute Then ListBox1.Items.Add(IntToStr(ListBox1.Items.Count+1) + '. ' + OpenDialog1.FileName);

[ inherited @ 16.06.2006. 23:06 ] @

OK, to funkcionise tako, ali?!!!
Uzecu primer, na taj nacin ubacim pesmu i u TListBox-u bude ovako:
01. D:\Muzika\nesto.mp3!!!
Tad mi se prijavi greska da TMediaPlayer, verovatno i bilo koja druga komponenta, ne moze citati ('01. D:\Muzika\nesto.mp3')?!
A kad je bez 01, D:\Muzika\nesto.mp3 tad normalno cita i pokrece pesmu...? :(
Da li se moze napraviti da cita D:\Muzika\nesto.mp3, a da ispred bude redni broj koji nece smetati?

[ IvanBeograd @ 16.06.2006. 23:23 ] @

Da bi ti bilo 01 a ne samo 1 mozes da napises f-ju
koja ce da proveri dali je broj manji od 10,
ako je broj item-a u ListBox-u manji od 10 onda da stavi '0' +IntToStr(Broj item-a)
a ako nije onda samo IntToStr(Broj item-a).Kontas?
A sto se tice ovog drugog mozes da napise f-ju koja ce da ocece taj redni broj ispred pesme
npr. ovo 01. D:\Muzika\nesto.mp3 da ti ocece ono 01. pa da ostane samo putanja do pesme.Nisam siguran pogledaj u
help-u mozda ima vec neka gotova f-ja sto to radi.
Pozzz

[ Miloš Baić @ 17.06.2006. 00:34 ] @

Mogao bi se primeniti rad sa stringovima...

[ badam @ 17.06.2006. 12:02 ] @

evo funkcije, ako nisi vec sam iskuco:

Code:

function AddLeadingNumber(ImePesme: string;RedniBroj, BrojDecimala:integer):string;
var i:integer;
     a:string;
begin
  a:=IntToStr(RedniBroj);
  for i:=length(a) to BrojDecimala-1 do
    a:='0'+a;
  a:=a+'.';
  Result:=a+ImePesme;
end;

function RemoveLeadingNumber(ImePesme: string):string;
begin
  Result:=copy(ImePesme, pos('.',ImePesme)+1, length(ImePesme))
end;

Pozdrav

Edit:
Sa prvom funkcijom mozes dodati nula koliko hoces, pa bi bilo dobro da proveris da li je broj veci od 9, 99, 999, pa onda dodajes koliko ti treba nula. Glupo je da imas nule ako imas samo 5 pesama u playlistu.
Prilikom dodavanja pesama proveri koliko je pesama pa ako je potrebno uradi:

Code:

for i:=0 to ListBox1.Items.Count-1 do
ListBox1.Items[i]:=AddLeadingNumber(RemoveLeadingNumber(ListBox1.Items[i]),i+1,length(IntToStr(ListBox1.Items.Count)))

Valjda sam zatvorio sve zagrade.:)