| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ListBox [D7, XP]

©   (2006-03-21 18:30:00) 

Удалено модератором
Примечание: Ник смени

---

Leonid Troyanovsky   (2006-03-21 19:24:00) [1]

> Блин, забыл сказать что ListBox могут быть дробные числа.


А больше ничего в оном ТЗ нет?
Может отнять, там, поделить.

RTFM: Val procedure.

--
Regards, LVT.

---

  (2006-03-21 19:03:00) [2]

Удалено модератором

---

Zeqfreed   (2006-03-21 18:48:00) [3]

procedure TForm1.Button1Click(Sender: TObject);
var
 i, n, sum : Integer;
begin
 Label1.Caption := '';
 sum := 0;

 for i := 0 to ListBox1.Items.Count - 1 do begin
  if not TryStrToInt(ListBox1.Items[i], n) then
   raise Exception.Create('failed');

  if (Label1.Caption = '') then
   Label1.Caption := '('
  else
   Label1.Caption := Label1.Caption + '+';

  Inc(sum, n);
  Label1.Caption := Label1.Caption + ListBox1.Items[i];
 end;

 Label1.Caption := Label1.Caption + Format(')/%d=%2.2f', [ListBox1.Items.Count, sum / ListBox1.Items.Count]);
end;

---

  (2006-03-21 18:47:00) [4]

Удалено модератором

---

clickmaker   (2006-03-21 18:38:00) [5]

> Дидиюбище   (21.03.06 18:30)  
> Приветствую всех! Перейду сразу к делу

а чего так? Давай о жизни потрещим?

---

Наверх