Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Вывод суммы чисел из ListBox в Edit

Автор: Wan22 6.11.2011, 10:56

Здравствуйте всем. Подскажите, что нужно написать в коде для кнопки "Сложить все",
чтобы в Edit выводилась сумма чисел из ListBox. На моем примере картинки в ListBox только два числа,
но мне надо чтобы суммировалось и большее количество чисел.

Код


procedure TForm2.Button1Click(Sender: TObject);
 begin
  Label1.Caption:=Floattostr(strtofloat(Edit1.Text)+strtofloat(Edit2.Text));
  ListBox1.Items.Add(Label1.Caption);
 end;

procedure TForm2.Button2Click(Sender: TObject);
 begin
  Edit3.Text:= //?????????//
 end;

end.

Автор: chip_and_dayl 6.11.2011, 11:22

Делаешь цикл и пробегаешься по всем элементам списка и суммируешь их.

Для этого тебе нужно узнать количество элементов в списке через ListBox1.Items.Count
Обращаться к элементу чере ListBox1.Items[i]

Добавлено @ 11:23

Цитата(Wan22 @ 6.11.2011, 10:56

)

На моем примере картинки в ListBox только два числа,но мне надо чтобы суммировалось и большее количество чисел.

Ага, которые суммируют значения не ЛистБокс

Автор: Wan22 6.11.2011, 12:00

Цитата(chip_and_dayl @ 6.11.2011, 11:22)

Делаешь цикл и пробегаешься по всем элементам списка и суммируешь их.

Мне бы конкретно нужный код, пожалуйста... Я еще циклы не умею делать, а суммировать и эти 2 числа не могу. smile

Автор: chip_and_dayl 6.11.2011, 12:05

Для того чтобы научиться достаточно в гугле вбить Делфи for или Делфи цикл

Код


procedure TForm2.Button2Click(Sender: TObject);
Var  i:  integer;
       sum:  real;
begin
   sum:=0
   
   for i:=0  to ListBox1.Items.Count-1  do
   begin
       sum:=sum+strtofloat(ListBox1.Items[i]);
   end;

   Label1.Caption:=floattostr(sum);
end;

Вродь ничего сложного нет

Автор: Wan22 6.11.2011, 12:42

Спасибо. Работает smile

.Только после sum:=0 еще точку с запятой поставил. Но это уже мелочи smile