Pregunta sobrelistbox

[*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 Noteví]

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...