FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#13
|
|||
|
|||
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)); |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
La pregunta | jcarteagaf | Humor | 2 | 09-02-2010 21:23:34 |
Una pregunta de msn | Arcioneo | Windows | 4 | 13-07-2006 16:11:16 |
Pregunta | Isaac | JAVA | 1 | 23-09-2004 12:28:02 |
Pregunta | Jesus Armando | DB2 | 4 | 30-12-2003 03:27:23 |
Pregunta | edwin1 | OOP | 0 | 23-07-2003 14:26:54 |
|