list box

[juaarias]

como hago para sumar toda una columna de un listbox, intente hacerlo con for pero al ejecutarlo me dice algo como que los valores float no es valido

[ecfisa]

Hola.

Seguramente la conversión de alguno de los items no dá como resultado un número válido.

Para sumar los items podés hacer:

Código Delphi [-]
function SumarItems(LB: TListBox): Double;
var
 i: Integer;
 v: Double;
begin
  for i:= 0 to LB.Items.Count -1 do
  begin
   if TryStrToFloat(LB.Items[i],v) then
     Result:= Result + v
   else
     raise Exception.Create('El item '+IntToStr(i+1)+' no es un número válido');
  end;
end;

Llamada:

Código Delphi [-]
...
begin
  ShowMessage(FloatToStr(SumarItems(ListBox1)));
end;

Saludos.

[juaarias]

hola gracias por responder, yo pensaba se podia hacer algo asi:

Código Delphi [-]
 for I := 0 to frmFactura.stgFactura.rowCount - 1 do
        frmFactura.stgFactura.Cells[3,lstProductos.Count+1]:=floattostr((strtofloat(frmFactura.stgFactura.Cells[3,lstProductos.Count+1]))+(strtofloat(frmFactura.stgFactura.cells[3,I]))) ;

se entiende?quise hacer algo de esta manera:

a:=a+b
para ir acumulando la suma en a.

[[Caral]]

Hola
ListBox ????.
Suena a stringGrid. ???
Saludos

[juaarias]

si string gris era....mil disculpas

[[Caral]]

Hola

Empezado por juaarias

si string gris era....mil disculpas

Lo siento, pero no lo se hacer en uno de estos string GRIS.
Tal vez de otro color
Saludos

[ecfisa]

Hola juaarias.

Pero entonces no estamos hablando de un TListBox sino de un TStringGrid que no es lo mismo...

En ese caso sería:

Código Delphi [-]
function SumarColumna(ST: TStringGrid; Column: Integer): Double;
var
  i: Integer;
  v: Double;
begin
  Result:= 0;
  for i:= ST.FixedRows to ST.RowCount-1 do
    if TryStrToFloat(ST.Cells[Column, i],v) then
      Result:= Result+v;
end;

Llamada:

Código Delphi [-]
begin
  ShowMessage(FloatToStr(SumarColumna(StringGrid1, 1)));  // en este caso suma columna 1
end;

Saludos.

[[Caral]]

Hola
Pero amigo: Y si el string es gris ????
Saludos

[ecfisa]

Empezado por Caral

Hola
Pero amigo: Y si el string es gris ????
Saludos

Pero mi amigo... para eso está la propiedad Color!!

Un saludo.