Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Izmesati linije u listbox-u?

[es] :: Pascal / Delphi / Kylix :: Izmesati linije u listbox-u?

[ Pregleda: 2052 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Nemanja Avramović
Software architect
Tap medical
Beograd, Srbija

Član broj: 32202
Poruke: 4385
*.yu1.net.

Sajt: https://avramovic.info


+45 Profil

icon Izmesati linije u listbox-u?03.04.2005. u 23:36 - pre 202 meseci
DakleM... imam listbox pun nekih linija... item-a.... kako da ih nasumicno izmesham?
Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
 
Odgovor na temu

sasas
Saša Slavnić
radim za neke švabe

Član broj: 35478
Poruke: 617
195.246.3.*



Profil

icon Re: Izmesati linije u listbox-u?03.04.2005. u 23:50 - pre 202 meseci
Možda ovako:

Code:

//napunimo list box sa 100 uredno složenih stringova
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 1 to 100 do
  begin
    listbox1.Items.Add('item ' + format('%.2d', [i]));
  end;
end;


Code:

//izmešamo ih
procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
  randomize;
  for i := 1 to 500 do // što je veći broj, to je 'slučajniji' rezultat
  begin
    listbox1.Items.Exchange(random(listbox1.Items.Count - 1), random(listbox1.Items.Count - 1));
  end;
end;


naravno, za neki bolji generator slučajnih brojeva, konsultovati google...

ss.
When something is hard to do, then it's not worth doing.
 
Odgovor na temu

Nemanja Avramović
Software architect
Tap medical
Beograd, Srbija

Član broj: 32202
Poruke: 4385
*.yu1.net.

Sajt: https://avramovic.info


+45 Profil

icon Re: Izmesati linije u listbox-u?03.04.2005. u 23:53 - pre 202 meseci
e ovaj ss mi uvek pomogne
ti bre doktorirao delphi? :)

veliko hvala
Laravel Srbija.

[NE PRUŽAM PODRŠKU ZA PHP PREKO PRIVATNIH PORUKA!]
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Izmesati linije u listbox-u?

[ Pregleda: 2052 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.