Ayuda con Listbox

[ecfisa]

Hola nuxbaster.

Podes hacerte una función que te devuelva la sumatoria de cualquier TStrings:

Código Delphi [-]
function SumStrings(ts: TStrings): Double;
var
  i: Integer;
begin
  ts.Text:= Trim(ts.Text); // quitar posibles espacios al inicio o fin
  Result:= 0;
  for i:= 0 to ts.Count-1 do
   try
     Result:= Result + StrToFloat(ts[i]);
   except
     raise Exception.Create('Error de conversión: Existe un valor erróneo');
   end;
end;

Entonces podes usarlo para varios controles:

Código Delphi [-]
  ShowMessage(FloatToStr(SumStrings(ListBox1.Items)));
  ShowMessage(FloatToStr(SumStrings(ComboBox1.Items)));
  ShowMessage(FloatToStr(SumStrings(Memo1.Lines)));

Saludos