Текущий архив: 2006.04.02;
Скачать: CL | DM;
Вниз
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.04 c
