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
|