Programación General > Delphi

 Otra Pregunta Sobre Listboxs

<< < (2/2)

GatoSoft:
Hola althenna, aqui te doy un fragmento de codigo que te puede servir como guia.


--- Código: Text --- procedure TForm1.Button1Click(Sender: TObject);var vNumero_str:string;    vestoy_leyendo_numero:Boolean;    vCaracter: Char;    vCadena:String;    i:Integer;beginvCadena:=Edit1.Text;vNumero_str:='';vestoy_leyendo_numero:=false; for i:=1 to length(vCadena) do  begin    vCaracter:=vCadena[i];    case vCaracter of    '0'..'9':begin             vestoy_leyendo_numero:=True;              vNumero_str:=vNumero_str+vCaracter;             end;    else         if vEstoy_leyendo_numero then            begin              Memo1.Lines.Add(vNumero_str);              vestoy_leyendo_numero:=False;              vNumero_str:='';            end;    end; //Case  end;//For { antes de terminar, hace una última verificacion por si el último fragmento de la cadena de texto es un numero}   if vEstoy_leyendo_numero then      begin         Memo1.Lines.Add(vNumero_str);         vestoy_leyendo_numero:=False;         vNumero_str:='';      end; end;  

GatoSoft:
Con respecto a tu otra inquietud, ¿como enviar el contenido de dos listbox a otro?

Podria ser: Recorriendo la fuente de datos y enviar elelemto por elemento al listbox


--- Código: Text ---  //Por ejemplo, tomando los datos de un Memo for i:=1 to memo1.Lines.Count-1 do   ListBox1.Items.Add(memo1.Lines[i]);  //Por ejemplo, tomando los datos de un listbox for i:=1 to Listbox2.Items.Count-1 do   ListBox1.Items.Add(Listbox2..items[i]);   

Otro forma, es utilizando el método assign, que copia el contenido del objeto en otro.


--- Código: Text ---   ListBox2.Items.Assign(ListBox1.Items);  
No sería igual hacer:

--- Código: Text --- Listbox2.items:=Listbox1.items;  
Por que estarías creando una referencia  entre dos objetos y no copiando los datos.

sergiotarrillo:
hola althenna, ya tengo el codigo para sacar de los numero de un memo y colocarlo a listbox, si no te lo pase antes es por el tiempo, ah por la segunda pregunta, trata de aprenderlo por tu cuenta, que es donde mejor se aprende y donde mejor se te queda,  aqui esta el codigo

tienes que tener un boton, un Tmemo(memTexto) y TComboBox(CboLista)


--- Código: Text --- procedure TForm1.CmdProbarClick(Sender: TObject);var  texto, num : string;  i : Integer;     //contadorbegin   texto := memTexto.Text;  num := '';  CboLista.Clear;   //limpiar el combo   for i:= 1 to Length(texto) do  begin    case texto[i] of      '0'..'9': num := num + texto[i];    else       if num &#60;&#62; '' then       begin          CboLista.AddItem(num,nil);          num := '';       end;    end;  end;    if num &#60;&#62; '' then      CboLista.AddItem(num,nil); end;   
Claro, que al codigo puedes quitarle algunas cosas y hacerlo mas eficiente, eso tambien queda a tu cuenta...

althenna:
muchas gracias realmente me ha servido de mucho tu ayuda gracias!!!!!! :lol:  :lol:

sergiotarrillo:
para quien fue las gracias.......... :scream: ?

Navegación

[0] Índice de Mensajes

[*] Página Anterior