Pregunta sobrelistbox

[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

[moise094]

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