[Electronic_Arts]

В listbox1 есть числа

456
12
423
42
356
9555
85
66
324
...
...

вопрос такой - как эти числа с одного до последнего прибавить друг другу - чтоб получить общую сумму? заранее благодарю..

[Karsh]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, x: Integer;
begin
  x:= 0;
  for i:= 0 to ListBox1.Items.Count - 1 do
    Inc(x, StrToInt(ListBox1.Items[i]));
  ShowMessage('Сумма = ' + IntToStr(x));
end;