[es] - Broj redova u TListBox?

inherited
Novi Sad

Član broj: 95516
Poruke: 219
*.neobee.net.

Profil

^{16.06.2006. u 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

^{16.06.2006. u 15:19}

IvanBeograd
Beograd

Član broj: 83376
Poruke: 186
*.dialup.sezampro.yu.

Sajt: www.dza-bu-drz-ne-daj.com

Profil

Re: Broj redova u TListBox?

^{16.06.2006. u 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

SERVIA NOSTRUM REGNUM!

^{16.06.2006. u 22:09}

inherited
Novi Sad

Član broj: 95516
Poruke: 219
*.neobee.net.

Profil

Re: Broj redova u TListBox?

^{16.06.2006. u 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...

^{16.06.2006. u 22:50}

Miloš Baić

Član broj: 72468
Poruke: 1089
*.dialup.neobee.net.

Sajt: www.2advanced.com

Profil

Re: Broj redova u TListBox?

^{16.06.2006. u 23:00}

Code:

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

If you go out of your mind, do it quietly, so as not to disturb those around you...

^{16.06.2006. u 23:00}

inherited
Novi Sad

Član broj: 95516
Poruke: 219
*.dialup.neobee.net.

Profil

Re: Broj redova u TListBox?

^{16.06.2006. u 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?

^{16.06.2006. u 23:06}

IvanBeograd
Beograd

Član broj: 83376
Poruke: 186
*.dialup.sezampro.yu.

Sajt: www.dza-bu-drz-ne-daj.com

Profil

Re: Broj redova u TListBox?

^{16.06.2006. u 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

SERVIA NOSTRUM REGNUM!

^{16.06.2006. u 23:23}

Miloš Baić

Član broj: 72468
Poruke: 1089
*.neobee.net.

Sajt: www.2advanced.com

Profil

Re: Broj redova u TListBox?

^{17.06.2006. u 00:34}

Mogao bi se primeniti rad sa stringovima...

If you go out of your mind, do it quietly, so as not to disturb those around you...

^{17.06.2006. u 00:34}

badam

Član broj: 78553
Poruke: 87
62.108.111.*

Profil

Re: Broj redova u TListBox?

^{17.06.2006. u 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.:)

^{17.06.2006. u 12:02}