Embaralhar linhas de um Listbox???

Delphi

30/08/2005

Agradeço a todos pela ajuda aqui no forum, sou universitário e estou precisando de um codigo de embaralhe aleatoriamente linha por linha listbox e de 3 em 3 linhas.

Alguem pode me ajudar?

Valew


O4pr3ndiz

O4pr3ndiz

Curtidas 0

Respostas

O4pr3ndiz

O4pr3ndiz

30/08/2005

alguem pode me ajudar???


GOSTEI 0
Massuda

Massuda

30/08/2005

...embaralhe aleatoriamente linha por linha listbox e de 3 em 3 linhas.
Provavelmente ninguém entendeu o problema... tente explicar melhor ou dar um exemplo.


GOSTEI 0
O4pr3ndiz

O4pr3ndiz

30/08/2005

Caro Massuda, sua ajuda sempre foi de grande valia pra mim e agradeço...

Agora estou precisando de um codigo delphi q embaralhe as linhas de um listbox... tipo linha por linha aleatoriamente, ou de 5 a 5 linhas de uma vez só..... Preciso terminar um projeto de faculdade e to me matando pra fazer isto..

Obrigado...


GOSTEI 0
Motta

Motta

30/08/2005

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k : integer;
    s : string;
begin
  Randomize;
  for k := 1 to 100 do
  begin
    i := Random(ListBox1.Items.Count-1);
    j := Random(ListBox1.Items.Count-1);
    s := Listbox1.Items[i];
    Listbox1.Items[i] := Listbox1.Items[j];
    Listbox1.Items[j] := s;
  end;
end;



GOSTEI 0
Sandra

Sandra

30/08/2005

Motta,

Acredito que tenha se enganado quanto ao ´ListBox1.Items.Count-1´. Se a variável [b:031b1a3f9b]k[/b:031b1a3f9b] começa cum [b:031b1a3f9b]1[/b:031b1a3f9b], então ´ListBox1.Items.Count´ (se começasse com 0, seria Count-1). :wink:

Fiz uma adaptação para o código que montou:
procedure TForm1.Button1Click(Sender: TObject); 
var i,j,k : integer; 
    s : string; 
begin 
  Randomize; 
  for k := 1 to ListBox1.Items.Count do 
  begin 
    i := Random(ListBox1.Items.Count); 
    j := Random(ListBox1.Items.Count); 
    s := Listbox1.Items[i]; 
    Listbox1.Items[i] := Listbox1.Items[j]; 
    Listbox1.Items[j] := s; 
  end; 
end;


:D


GOSTEI 0
Martins

Martins

30/08/2005

Blz, o código tá funcional...
procedure TForm1.Button2Click(Sender: TObject);
var
  a,b,c : integer;
  l : string;
begin
  Randomize;
   for c := 1 to LBox.Items.Count do
    begin
       a := Random(LBox.Items.Count);
       b := Random(LBox.Items.Count);
       l := LBox.Items[a];
       LBox.Items[a] := LBox.Items[b];
       LBox.Items[b] := l;
    end;
end;


Ok!


GOSTEI 0
POSTAR