Código Delphi [-]for i:= 0 to lista.Items.Count -1 do begin total:= total + (StrToFloat(lista.Items.Item[ i ].Caption )); Label35.Caption:= FloatToStr(total); end;
for i:= 0 to lista.Items.Count -1 do begin total:= total + (StrToFloat(lista.Items.Item[ i ].Caption )); Label35.Caption:= FloatToStr(total); end;