FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Operacion con listbox y memo
Hola amigos buenas tardes, espero que me ayuden resulta que quiero multiplicar el contenido de un memo y un listbox y que el resultado me aparesca en otro listbox, les anexo mi programacion
Código:
procedure TPedidos.ListBox3Click(Sender: TObject); var no3,no4:real; begin no3:=strtofloat(memo1.Lines.Text[1]); no4:=strtofloat(listbox3.Items.Text[2]); listbox1.Items.Text:=formatfloat('0.00',no3*no4); end; |
#2
|
||||
|
||||
Hola rufo.
Te puedo decir que la línea: Código:
no4:=strtofloat(listbox3.Items.Text[2]); ejemplificando: Si ListBox1.Items.Text = '192' ; ListBox1.Items.Text[2] = '9' Si ListBox1.Items.Text = '5' ; ListBox1.Items.Text[2] = '' (Error de conversión ya que en la posición 2 no hay nada) Pero me faltan detalles para entender que es lo que buscas. Supongo que el ListBox tiene sus Strings asignadas, pero el Memo ? lo ingresas o está predefinido? Que resultado esperas ? Sólo la multiplicacion de lo seleccionado en el ListBox por lo seleccionado en el Memo ? (o una lista con las multiplicaciones del nro seleccionado en el ListBox por todos los nros del Memo) Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
|||
|
|||
Gracias amigo ecfisa por contestar, efectivamente los datos los voy ingresar manualmente en el memo y que multiplique por el valor ya definido en el listbox y que me muestre el resultado en el otro listbox, gracias de antemano.
|
#4
|
||||
|
||||
Hola rufo.
No tenés nada que agradecer; para tratar de ayudar y que nos ayuden estamos aquí . A ver si esto es lo que buscas: Código:
procedure TForm1.Button1Click(Sender: TObject); var n1,n2: Double; Linea: Integer; begin n1:= StrToFloat(ListBox1.Items[ListBox1.ItemIndex]); Linea:= Memo1.Perform(EM_LINEFROMCHAR, Memo1.SelStart, 0); try n2:= StrToFloat(Memo1.Lines.Strings[Linea]); except on E: EConvertError do begin ShowMessage('Ingrese un número real'); Memo1.SetFocus; Exit; end; end; ListBox2.Items.Add(FloatToStr(n1)+' x '+FloatToStr(n2)+ ' = '+ FloatToStr(n1*n2)); end;
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#5
|
|||
|
|||
Efectivamente amigo es lo que andaba buscando de antemano muchas gracias.
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Alinear un listbox como si se tratara de un memo | krlox31416 | Varios | 8 | 24-02-2009 19:34:33 |
Qué significa la operación X^Y | meguzman | C++ Builder | 6 | 19-08-2008 08:49:17 |
Operacion con Hexadecimales | BetoAlonso | Varios | 11 | 26-02-2008 00:40:25 |
Sobre el Memo y el listbox | Steven Tyler | Varios | 2 | 05-10-2007 00:48:10 |
agregar y/o eliminar items de un listbox a partir de otro listbox | Goyo | PHP | 2 | 27-09-2007 16:46:30 |
|