Autor Tema: Otra Pregunta Sobre Listboxs (Leído 2840 veces)

althenna · « **en:** Domingo 30 de Mayo de 2004, 03:56 »

bueno tengo un tmemo donde meto informacion.... pero quiero separar los numeros es decir

introduzco algo asi

oioiiou89899f98

quiero separar el texto de los numeros

e introducirlos al listbox... hasta ahora puedo agregar numero por numero es decir del texto anterior me quedaria(quedo mas bien) algo asi

8
9
8
9
9
9
8

pero yo quiero que salga el texto seguido si es que lo esta es decir algo asi

89899
98

U.U no se si me explique bien lo siento

sergiotarrillo

a ver si no me equivoco, lo que quieres es que hago esto:
si tengo en el Tmemo: ds4585ds655d45

quieres que inserte en el listbox lo siguiente:
4585
655
45

eso es lo que quieres

?

althenna · « **Respuesta #2 en:** Lunes 31 de Mayo de 2004, 01:35 »

Cita de: "Serghio"

a ver si no me equivoco, lo que quieres es que hago esto:
si tengo en el Tmemo: ds4585ds655d45

quieres que inserte en el listbox lo siguiente:
4585
655
45

eso es lo que quieres ?

sisisi eso eso... eso ^^

hey tambien se me ocurrio otra cosa como enviar el contenido de dos listbox a otro listbox... eso tambien me gustaria

sergiotarrillo · « **Respuesta #3 en:** Lunes 31 de Mayo de 2004, 17:49 »

ok, cuando haga el codigo te lo paso.............

althenna · « **Respuesta #4 en:** Lunes 31 de Mayo de 2004, 18:52 »

si te lo encargo mucho mucho si?

¬¬ no me gusta swars pero.....

mi cuñado me vijila

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;
begin
vCadena:=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;     //contador
begin
 
  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 · « **Respuesta #8 en:** Martes 8 de Junio de 2004, 23:02 »

muchas gracias realmente me ha servido de mucho tu ayuda gracias!!!!!!

sergiotarrillo

para quien fue las gracias..........

?

SoloCodigo

Autor Tema: Otra Pregunta Sobre Listboxs (Leído 2840 veces)

althenna

Otra Pregunta Sobre Listboxs

sergiotarrillo

Re: Otra Pregunta Sobre Listboxs

althenna

Re: Otra Pregunta Sobre Listboxs

sergiotarrillo

Re: Otra Pregunta Sobre Listboxs

althenna

Re: Otra Pregunta Sobre Listboxs

GatoSoft

Re: Otra Pregunta Sobre Listboxs

GatoSoft

Re: Otra Pregunta Sobre Listboxs

sergiotarrillo

Re: Otra Pregunta Sobre Listboxs

althenna

Re: Otra Pregunta Sobre Listboxs

sergiotarrillo

Re: Otra Pregunta Sobre Listboxs