Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вывод суммы чисел из ListBox в Edit 
V
    Опции темы
Wan22
Дата 6.11.2011, 10:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 21
Регистрация: 28.12.2010

Репутация: нет
Всего: нет
user posted image
Здравствуйте всем. Подскажите, что нужно написать в коде для кнопки "Сложить все",
чтобы в 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.

 

Это сообщение отредактировал(а) Wan22 - 6.11.2011, 12:04
PM MAIL   Вверх
chip_and_dayl
Дата 6.11.2011, 11:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

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

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

Добавлено @ 11:23
Цитата(Wan22 @  6.11.2011,  10:56 Найти цитируемый пост)
На  моем примере картинки в ListBox только два числа,но мне надо чтобы суммировалось и большее количество чисел. 

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

Это сообщение отредактировал(а) chip_and_dayl - 6.11.2011, 11:23


--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
Wan22
Дата 6.11.2011, 12:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 21
Регистрация: 28.12.2010

Репутация: нет
Всего: нет
Цитата(chip_and_dayl @ 6.11.2011,  11:22)
Делаешь  цикл и пробегаешься по всем элементам списка и суммируешь их.

 

Мне бы конкретно нужный код, пожалуйста... Я еще циклы не умею делать, а суммировать и эти 2 числа не могу. smile 
PM MAIL   Вверх
chip_and_dayl
Дата 6.11.2011, 12:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 603
Регистрация: 22.4.2007
Где: Украина, Киев

Репутация: 1
Всего: 9
Для того чтобы научиться достаточно в гугле вбить  Делфи 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;



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

Это сообщение отредактировал(а) chip_and_dayl - 6.11.2011, 12:06


--------------------
Фсё будет хорошо!!!
PM MAIL Skype   Вверх
Wan22
Дата 6.11.2011, 12:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 21
Регистрация: 28.12.2010

Репутация: нет
Всего: нет
Спасибо. Работает smile .Только после sum:=0 еще точку с запятой поставил. Но это уже мелочи smile    
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0440 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.