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