FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ayudita con un codigo
Hola!
tengo este codigo y no tengo idea por que no funciona. Antes corria perfecto. El programa compila bien, pero no me da el resultado que quiero. Este es el código procedure Tformbar.preciobar; var i,j:integer; chk: TCheckbox; TOTAL: real; begin TOTAL:=0; for i:= 0 to ControlCount - 1 do begin if controls [i] is tcheckbox then begin chk:=controls[i] as Tcheckbox; if chk.Checked then begin for j:= 1 to n do begin if upcase(chk.caption) = upcase(copy(B[j],1,pos(';',B[j])-1)) then TOTAL:= TOTAL + strtofloat(Copy(B[j],pos(';',B[j])+1,maxint)); end; end; end; end; uncontbar.formcontbar.LBPrecioBar.Caption:=floattostr(Total); end; Consta basicamente de un formulario con checkbox's, y la idea es que los recorra, que encuetre cuales estan chequeados y compare su caption con una matriz con datos que ya esta cargada. Si encuentra ese nombre en la matriz, copia un dato de esa matriz y la guarda en la variable TOTAL. Al final, esa variable se imprime en un label en otro formulario. Pero cuando ejecuto, siempre se queda en cero, nunca cambia. Alguna ayudita por ahi...? Graciass |
#2
|
||||
|
||||
Hola kirios.
Por favor cuando incluyas código en tus mensaje utiliza TAG's: Con respecto a tu consulta, yo encararia el tema de otro modo; que a mi entender es más simple. Usaría la propiedad Tag de los TCheckBox como índices y en lugar de una matriz usaría un arreglo dinámico. Un ejemplo como para darte una idea:
Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
|||
|
|||
Hola!
Buenisimo, no sabia lo de los tags. Igual te comento que la matriz que tengo se carga al iniciar el programa, desde un archivo de texto externo, donde tengo el nombre y el precio de cada cosa. Entonces, mi idea es comparar los caption de los checkbox's, compararlos con los nombres en la matriz, y sacar el precio desde ahi. El Caption esta tomado de la misma matriz, asique la comparacion no es el problema, son la misma cosa. Pudiste encontrar algun error en el codigo que pase antes? Gracias! |
#4
|
|||
|
|||
Hola. Hace mucho que no escribo, pero me parece que no es el lugar correcto del foro para esto.
No veo problemas en tu codigo si antes te andaba y ahora quiza pueda ser la configuración regional con los separadores decimales... |
#5
|
|||
|
|||
Hola!
No creo que ese sea el problema, pero gracias igual. Me voy a fijar lo del foro, yo tambien hace mucho que no escribo, por aho entre en otro lado. Gracias! |
#6
|
||||
|
||||
Hola, además de los tags para el código, recuerda nuestra guía de estilo y también recuerda poner títulos descriptivos a tus preguntas, sirven para luego hacer búsquedas.
Además no repitas preguntas. Ya he borrado la otra. Ya sabemos que llevas poquito tiempo aquí y todavía no estás familiarizado, te aconsejo que leas la guía de estilo, no te llevará ni tres minutos. Muchas gracias por tu colaboración. |
#7
|
||||
|
||||
Hola kirios.
Ahora creo que entendí lo que buscas. A ver... tenés un archivo de texto con el nombre de un objeto y un valor separados por un ';' . Supongamos que se llame Archivo.txt y contenga lo siguiente: Código:
cama;1 mesa;2 silla;3 vaso;4 plato;5 banco;6 cuchillo;7 tenedor;8 cuchara;9 fuente;10 Por supuesto tendrás que tener tantos CheckBoxs como datos haya en el archivo... Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#8
|
|||
|
|||
Hola! Repetí la pregunta porque estaba en la sección equivocada, pensé que tenia que volver a escribirla, no lo hice para molestar. Por favor podes habilitarla? A menos que la primera pregunta que hice se vea desde esta seccion del foro, necesito algunas respuestas para el problema. Voy a leer la guia.
Gracias! |
#9
|
||||
|
||||
¿No te gusta la respuesta de ecfisa?
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Una ayudita con un gps | newgeek | Varios | 7 | 09-12-2010 13:43:58 |
Ayudita con HD | dape | Varios | 5 | 29-04-2008 18:33:21 |
Una ayudita, para este codigo | ingabraham | OOP | 14 | 17-08-2007 01:22:48 |
ayudita con mi space en mns¿? | gypi | Varios | 7 | 08-08-2007 10:53:34 |
una ayudita | Delphius | Varios | 4 | 16-01-2005 11:24:58 |
|