Форум: "Начинающим";
Текущий архив: 2006.04.02;
Скачать: [xml.tar.bz2];

Вниз

ListBox   Найти похожие ветки 

← →
имя   (2006-03-21 18:30) [0]

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

---

← →
clickmaker ©   (2006-03-21 18:38) [1]

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

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

---

← →
имя   (2006-03-21 18:47) [2]

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

---

← →
Zeqfreed ©   (2006-03-21 18:48) [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 19:03) [4]

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

---

← →
Leonid Troyanovsky ©   (2006-03-21 19:24) [5]

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


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

RTFM: Val procedure.

--
Regards, LVT.

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2006.04.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.044 c