Sumar elementos de un ListBox

[creus]

Hola a todos,


Como puedo sumar todos los elementos númericos de un ListBox??

Gracias por la ayuda.

[delphi.com.ar]

No hay un método que te lo resuelva, vas a tener que recorrer la lista de los elementos y acumularlos en una variable.

Saludos!

[Jucho69]

Hola yo soy recien estrenado en el Foro y hé recibido ayuda de los que saben, en mi modesta opinión puedes resolver de la siguiente forma:

Yo utilizo un Combo pero debe funcionar igual con un List.

Código Delphi [-]
 var can,zz: integer;   a,b:string;
 begin
 can:=ComboBox1.Items.Count;
 b:=0;
 for zz:=0 to can do
  begin
   a:=b;
   ComboBox1.ItemIndex:=zz;
   Label2.Caption:=ComboBox1.Items[ComboBox1.ItemIndex];
   b:=Label2.Caption;

luego conviertes los string de cada variable a numero y los sumas
dandote la suma de todos los items.

A mí me resultó espero que te sirva.

[dec]

Hola,

Encerrad el código entre las etiquetas correspondientes que gana un montón en legilibilidad.

Está la etiqueta "delphi" y hay no pocas más: echad un vistazo.

[delphi.com.ar]

Yo intentaría hacer algo sin cambiar el ItemIndex:

Código Delphi [-]
function SumStrings(Value: TStrings): Integer;
var
  i: Integer;
begin
  Result := 0;
  for i := 0 to Value.Count - 1 do
    Result := Result + StrToIntDef(Value[i], 0);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption := IntToStr(SumStrings(ListBox1.Items))
end;