Pregunta sobrelistbox

[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

[*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

[ecfisa]

Empezado por Caro

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

Saluditos

Esos son muy buenos también!!!

Cariños.

[Casimiro Notevi]

¿Alguien me ha llamado?

[*Caro*]

Empezado por Casimiro Notevi

¿Alguien me ha llamado?

.

Empezado por moise094

Código Delphi [-]Listbox1.Items.add('Diez por ciento: '+Inttostr(va.sumaing+StrtoInt(Edit6.Text))*0.10);

me dice:

Error: Operator is not overloaded

Sigues haciendo operaciones entre String y numeros debes diferenciar eso. Es mejor que hagas las operaciones a parte y depues lo añades al ListBox, como el resultado de tu porcentaje va a ser de tipo Float, te puedes definir otra variable de ese tipo.

Código Delphi [-]
var
 Porcentaje : Real;
begin
   ..................................
Porcentaje := (va.sumaing+StrtoInt(Edit6.Text))*0.10;
 Listbox1.Items.add('Diez por ciento:  '+FloatToStr(Porcentaje));

Saluditos

[moise094]

Gracias tendre en cuenta mucho lo de lo de no confundir strings con integers o reales, casi siempre me pasa eso...

[moise094]

Una pregunta a este codigo:

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

quiero sacarle el 10% y que se vea en el mismo listbox, lo hice pero me daba error, por q creo que como se saca el 10% debe ser float o real y uso puro integer...??

[moise094]

medice que Error: Operator is not overloaded no c que pasara??

[Casimiro Notevi]

¿Y por qué no pones el código que has usado?

[moise094]

Código Delphi [-]
Listbox1.Items.add('Diez por ciento:  '+Inttostr(va.sumaing+StrtoInt(Edit6.Text))*0.10);

me dice:

Error: Operator is not overloaded

[Gerson12]

gracias por los datos tratare de hacerlo como lo dicen ustedes gracias