Pregunta sobrelistbox

[moise094]

Tengo en un listbox un item mixto es decir por ejmplo JUAN 45, y quiero sumar un numero cualquiera con el numero 45 que puse de ejemplo, como se haria para extraer el numero 45 en un edit o algo por el estilo...????

[moise094]

mas conciso: como haria para extraer de un item mixto de un listbox el numero, por ejemplo teniendo en el item juan 45, extraerlo en un edit o cualquier cosa???

[ecfisa]

Hola moise094 y bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

Una opción puede ser:

Código Delphi [-]
function ExtraerNum(cad:string): string;
var
  i: Integer;
begin
  i:=0;
  while not (cad[i] in ['0'..'9']) do Inc(i);
  repeat
    Result:= Result + cad[i];
    Inc(i);
  until not (cad[i] in ['0'..'9']);
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  with TListBox(Sender) do
    Caption:= ExtraerNum(Items[ItemIndex]);
end;

Saludos.

[*Caro*]

Hola moise094, otra opción, si el número va a estar siempre al final separado por un espacio, podemos utilizar las funciones Pos y Copy.

Código Delphi [-]
var
 PosIni : Integer;
 Valor, item : String;
begin
 item := ListBox1.Items[ListBox1.ItemIndex];
 PosIni := Pos(' ', item);
 Valor := Copy(item, PosIni+1, Length(item)-PosIni);
 Showmessage(Valor);

en el caso de que haya mas espacios, primero encontramos el ultimo espacio para hacer el copy.

Saluditos

[moise094]

esa function de extraer numero la pongo en la parte private o public de la unidad del form???

[moise094]

El caso es el siguiente, voy a abrir un documento .txt en un listbox y este tiene:
JUAN 45
JOSE 56

y quiero que al abrir el archivo, me aparezca en un edit cualquiera el numero 45
es decir el listbox va siempre a tener varios items...

[ecfisa]

Empezado por moise094

esa function de extraer numero la pongo en la parte private o public de la unidad del form???

Son funciónes no métodos por lo que básta con que las situes en la sección de implementación (implementation), aunque también podés hacerlas como un método privado o público.

Cualquiera de las funciones (la de Caro o la que te puse) van a realizar la tarea. Pero si el número siempre está al final y existe al menos un espacio entre nombre y número, es mejor que utilices la que te propuso Caro.

Saludos.

[ecfisa]

Empezado por moise094

El caso es el siguiente, voy a abrir un documento .txt en un listbox y este tiene:
JUAN 45
JOSE 56

y quiero que al abrir el archivo, me aparezca en un edit cualquiera el numero 45
es decir el listbox va siempre a tener varios items...

Entonces sería:

Código Delphi [-]
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  with TListBox(Sender) do
    Edit1.Text := ExtraerNum(Items[ItemIndex]);
end;

O dependiendo de lo que desees, también podrías hacer:

Código Delphi [-]
procedure TForm1.Edit1Enter(Sender: TObject);
begin
  with ListBox1 do
    Edit1.Text := ExtraerNum(Items[ItemIndex]);
end;

Siendo el código de la función ExtraerNum el que elijas.

Saludos.

[*Caro*]

Empezado por moise094

El caso es el siguiente, voy a abrir un documento .txt en un listbox y este tiene:
JUAN 45
JOSE 56

y quiero que al abrir el archivo, me aparezca en un edit cualquiera el numero 45
es decir el listbox va siempre a tener varios items...

Lo mio sería parecido al de ecfisa:

Código Delphi [-]
//el codigo que te puse lo colocamos en una función
function ExtraerNum(Item : String) : String;
var
 PosIni : Integer;
 Valor : String;
begin
 PosIni := Pos(' ', item);
 Valor := Copy(item, PosIni+1, Length(item)-PosIni);
 Result := Valor;
end;

//ahora para llamar
//despues de cargar el archivo en el listbox, mostramos el número
//del item que esta en la posión 0

 ListBox1.Items.LoadFromFile('c:\xxx\file.txt');
 Edit1.Text := ExtraerNumero(ListBox1.Items[0]);

//ahora cada ves que selecciones un nuevo item utilizas el evento Onclick
procedure TForm1.ListBox1Click(Sender: TObject);
begin
 Edit1.Text := ExtraerNumero(ListBox1.Items[ListBox1.ItemIndex]);
end;

Saluditos

[moise094]

Muchas gracias ya pude extraer el numero,
AHORA LO QUE PASA ES ESTO
se extrajo el numero pero al sumarlo con el numero que voy a meter no me suma sino que hace esto:
1+45=145

[*Caro*]

Empezado por moise094

Muchas gracias ya pude extraer el numero,
AHORA LO QUE PASA ES ESTO
se extrajo el numero pero al sumarlo con el numero que voy a meter no me suma sino que hace esto:
1+45=145

Hola, tienes que convertir a entero el número que has extraido para hacer la suma.

Código Delphi [-]
var
 Numero : Integer;
begin
 Numero := StrToInt(ExtraerNumero(ListBox1.Items[ListBox1.ItemIndex]))+1;
 Edit1.Text := IntToStr(Numero);

Saluditos

[moise094]

Me sigue pasando lo mismo, sigue sumando 1+45=145

[*Caro*]

Empezado por moise094

Me sigue pasando lo mismo, sigue sumando 1+45=145

Muestranos el codigo que estas utilizando, porque lo que estas haciendo es concatenar los dos numeros.

Saluditos

[moise094]

primero que todo puse el codigo de ecfisa
function TForm3.ExtraerNum(cad:string): string;
var
i: Integer;
begin
i:=0;
while not (cad[i] in ['0'..'9']) do Inc(i);
repeat
Result:= Result + cad[i];
Inc(i);
until not (cad[i] in ['0'..'9']);
end;

Luego pongo

var
Numero : Integer;

begin
Numero:=StrToInt(ExtraerNum(Listbox1.Items[1]));
Edit1.text:=IntToStr(Numero);
end;


Despues como quiero que lo sume con un numero que meto en un edit,
y pongo

Listbox1.Items.add('Ventas: '+(Intttostr(va.sumaing))+(Edit6.Text));

[moise094]

puse el codigo de ecfisa por que fue el que me dejo apenas el numero, que es lo que queria

[Casimiro Notevi]

Recuerda poner los tags al código fuente, ejemplo:

[*Caro*]

Hola, es lo que te decía estas concatenando, prueba así:

Código Delphi [-]
 Listbox1.Items.add('Ventas:  '+Inttostr(va.sumaing+StrtoInt(Edit6.Text)));

Saluditos

[ecfisa]

Empezado por moise094

Muchas gracias ya pude extraer el numero,
AHORA LO QUE PASA ES ESTO
se extrajo el numero pero al sumarlo con el numero que voy a meter no me suma sino que hace esto:
1+45=145

Hola.

La función te devuelve una cadena de caracteres, como por ejemplo '32', que de ningún modo es lo mismo que el número 32. Por ejemplo:

Código Delphi [-]
   Edit1.Text:= ExtraerNumero('RANINQUEO 15')+ExtraerNumero('ROBUSTIANA 80');

No esperes ver en el edit el número 95, lo que verás es '1580' que resulta de concatenar '15' y '80'. Para poder obtener el número 95 tenes que realizar las conversiones correspondientes tál como te indica Caro.

Retomando el ejemplo que te puse arriba, para obtener 15+80 sería:

Código Delphi [-]
  Edit1.Text:= IntToStr(StrToInt(ExtraerNumero('RANINQUEO 15'))+StrToInt(ExtraerNumero('ROBUSTIANA 80')));

Saludos.

Edito: Si no le gustan los nombres... Escucho sugerencias

[moise094]

Muchas gracias a todos, Dios me los bendiga, cualquier otra pregunta del tema, se las estare informando...

[*Caro*]

Empezado por ecfisa

Edito: Si no le gustan los nombres... Escucho sugerencias

Hola ecfisa, el de Robustiana me gusta , el otro podría ser Saturnino o también Casimiro .

Saluditos