Pasar Elementos de un ListBox a Otro

[ale4132]

Hola Comunidad!!!
Tengo un problema para pasar elementos de un listBox, la situación es la siguiente:
Por medio de un botón genero números aleatorios en un listBox1, además mi formulario cuenta también con un listBox2 y un edit. Mi pregunta es la siguiente:
Como puedo hacer por medio de otro botón para que los números que esten en el listbox1 y sean mayores al número introducido en el edit pasen al listbox2. Por Favor si es posible utlizando una estructura de trabajo "For ... do" en la programación.

Espero respuesta. Muchas Gracias!!!
SALUDOS!!!

[[nlsgarcia]]

ale4132,

Originally Posted by ale4132

Como puedo hacer por medio de otro botón para que los números que esten en el listbox1 y sean mayores al número introducido en el edit pasen al listbox2

Revisa este código:

Código Delphi [-]
procedure TForm1.Button7Click(Sender: TObject);
var
   i : Integer;
begin
   ListBox2.Clear;
   for i := 0 to ListBox1.Count-1 do
   begin
      if StrToInt(ListBox1.Items.Strings[i]) > StrToInt(Edit1.Text) then
         ListBox2.Items.Add(ListBox1.Items.Strings[i]);
   end;
end;

El código anterior copia los números mayores al número en Edit1.Text del Listbox1 al ListBox2

Revisa este código:

Código Delphi [-]
procedure TForm1.Button8Click(Sender: TObject);
var
   i : Integer;
begin
   ListBox2.Clear;
   for i := ListBox1.Count-1 downto 0 do
   begin
      if StrToInt(ListBox1.Items.Strings[i]) > StrToInt(Edit1.Text) then
      begin
         ListBox2.Items.Add(ListBox1.Items.Strings[i]);
         ListBox1.Items.Delete(i);
      end;
   end;
   ListBox2.Sorted := True;
end;

El código anterior mueve los números mayores al número en Edit1.Text del Listbox1 al ListBox2

Espero sea útil

Nelson.

[ale4132]

Muchas Gracias nelson por tu respuesta, me fue de mucha utilidad.

[ecfisa]

Hola ale4132.

Por favor, esta nueva pregunta que no tiene relación con la inicial, publícala en un nuevo hilo con un título significativo. (Punto #8 de la guía de estilo)

Saludos y gracias por tu colaboración