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); 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