DakleM... imam listbox pun nekih linija... item-a.... kako da ih nasumicno izmesham?
Izmesati linije u listbox-u?
Zaključano
Zakačeno
Možda ovako:
naravno, za neki bolji generator slučajnih brojeva, konsultovati google...
ss.
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;
//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;
//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.
Potpis
When something is hard to do, then it's not worth doing.
e ovaj ss mi uvek pomogne
ti bre doktorirao delphi? :)
veliko hvala
ti bre doktorirao delphi? :)
veliko hvala