Fórum combobox e items #157128
01/05/2003
0
Meu problema é o seguinte:
eu tenho um combobox que ´carrega´ os items de um arquivo .txt.
combobox.items.loadfromfile(arquivo.txt);
os items aparecem na mesma ordem em que estão no arquivo.txt, eu gostaria de que eles mudassem de posição aleatóriamente.
Muito Obrigado.
Ål£×äñðrëðþt
Curtir tópico
+ 0Posts
01/05/2003
Ål£×äñðrëðþt
Gostei + 0
01/05/2003
Adilsond
Se o que deseja é apenas mover os itens de posição utilize:
ComboBox1.Items.Move(PosiçãoInicial,PosiçãoDestino);
Gostei + 0
01/05/2003
Ål£×äñðrëðþt
Gostei + 0
01/05/2003
Adilsond
Então no seu caso voce terá de criar uma rotina para após a carga inicial do Combo mudar a posição das linhas com o move.
Gostei + 0
01/05/2003
Ål£×äñðrëðþt
Gostei + 0
01/05/2003
Adilsond
procedure TForm1.MudarPosicao; var I: Integer; begin Randomize; for I := 0 to ComboBox1.Items.Count - 1 do ComboBox1.Items.Move(I,Random(ComboBox1.Items.Count - 1)); end;
Gostei + 0
01/05/2003
Ål£×äñðrëðþt
Gostei + 0
01/05/2003
Adilsond
2º - Após a linha: combobox.items.loadfromfile(arquivo.txt); voce coloca a chamada para a procedure:
combobox.items.loadfromfile(arquivo.txt);
MudarPosicao;
Gostei + 0
01/05/2003
Ål£×äñðrëðþt
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)