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));
|