Creo que esta es la solución  :
Código Delphi [-]for i:=0 to lbPrecio.Items.Count-1 do
begin
numero:=strToFloat(LBPrecio.items[i]);
total:=total+numero;
end;
Edit.text:=FloatToStr(Total) ;
__________________
"La recompensa de una buena acción está en haberla hecho"
Última edición por DarkMan fecha: 05-01-2008 a las 20:35:09.
|