combobox e items

01/05/2003

0

Olá pessoal, boa noite.

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

ål£×äñðrëðþt

Responder

Posts

01/05/2003

ål£×äñðrëðþt

ae pessoal será que ninguém sabe?


Responder

01/05/2003

Adilsond

Se o que voce deseja é colocar em ordem utile a propriedade Sorted = True;

Se o que deseja é apenas mover os itens de posição utilize:

ComboBox1.Items.Move(PosiçãoInicial,PosiçãoDestino);


Responder

01/05/2003

ål£×äñðrëðþt

Obrigado, mas essa opção sorted não faz um sorteio, toda vez q o aplicativo for iniciado os items terão que vir em ordem diferente, um sorteio aleatorio da posição dos items.


Responder

01/05/2003

Adilsond

O Sorted significa ordenado, classificado.

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.


Responder

01/05/2003

ål£×äñðrëðþt

Mas como fazer para o combo.items.move modificar todos os items de lugar toda vez q o programa for iniciado?


Responder

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;



Responder

01/05/2003

ål£×äñðrëðþt

AdilsonD obrigado, mas eu digitei esse código e não fez efeito nenhum, nem o delphi acusou erro.


Responder

01/05/2003

Adilsond

1º - A propriedade Sorted do combo deve estar False;
2º - Após a linha: combobox.items.loadfromfile(arquivo.txt); voce coloca a chamada para a procedure:

combobox.items.loadfromfile(arquivo.txt);
MudarPosicao;


Responder

01/05/2003

ål£×äñðrëðþt

AdilsonD, Muito obrigado pela sua ajuda, o erro agora foi meu, seu código funcionou. Muito Obrigado.


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar