Pasar Elementos de un ListBox a Otro

[[nlsgarcia]]

ale4132,

Empezado por 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.