Mover de um listbox para outro

Delphi

23/09/2004

Galera sou meio que iniciante na programação e gostaria como que faço para poder mover itens de um listbox para outro sem alterar a ordem e em apenas um clique de botão.

No aguardo de um apoio
Obrigado

Wagner


Wagnermarrane

Wagnermarrane

Curtidas 0

Respostas

Wagnermarrane

Wagnermarrane

23/09/2004

pessoal corrigindo... mover não seria uma boa... mas criar um cópia dos dados que existe em um listbox em outro listbox.


GOSTEI 0
Keitarosan

Keitarosan

23/09/2004

Maneira simples e rápida, vamos considerar que o ListBox cheio é o ListBox1 e o vazio é o ListBox2, dae que você faz o seguinte:

ListBox2.Items.Assign(ListBox1.Items);

e pronto, os itens serão copiados :wink:


GOSTEI 0
Wagnermarrane

Wagnermarrane

23/09/2004

mas eu precisaria que este processo de cópia passasse por um for ou um while... porque eu iria fazer alguns testes com if...

Mas mesmo assim muito obrigado não sabia desta linha de comando...

Wagner


GOSTEI 0
Keitarosan

Keitarosan

23/09/2004

com uma estrutura repetitiva? é mole tambem :D
no exemplo vou usar um FOR contando do inicio até o fim do ListBox1, vou checar se o item do ListBox1 tem mais do que 5 chars para que seja adicionado no ListBox2, ok?

var
  cont: Integer;
begin
  for cont := 0 to ListBox1.Items.Count -1 do
    if Length(ListBox1.Items[cont]) > 5 then
      ListBox2.Items.Add(ListBox1.Items[cont]);
end;


usei o Count -1 para corrigir, já que iniciamos a contagem a partir do ZERO e nao do 1...

Com esse exemplo você entende como funfa e adapta de acordo com sua necessidade :wink:


GOSTEI 0
POSTAR