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

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

Подсчитать вещественные числа в Listbox [D7, XP]

Страницы:   < 1 2 >

Rav4 ©   (2008-11-17 09:46:00) 

Доброе утро, мастера!

Подскажите пожалуйста, как подсчитать все вещественные числа в компоненте Listbox?
т.е. имеем такую структуру:


10.1
22.6
13.2
40.9


Результат: 86.8

Как это можно расчитать? Подскажите пожалуйста!

---

Rav4   (2008-11-17 10:12:00) [21]

Спасибо!

Но чета-не так....

floattostr
strtofloat не пашут.
Что-то с оверлеями....

---

brother   (2008-11-17 10:04:00) [22]

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
//   s: string;
 t: extended;
begin
t:=0;
 for i:=0 to listbox1.Items.Count-1 do
 t:=t+floattostr(listbox1.Items.Strings[i]);

 label1.Caption:= strtofloat(t);
end;
даже лучше так

---

brother   (2008-11-17 10:02:00) [23]

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
//   s: string;
  t: extended;
begin
t:=0;
for i:=0 to listbox1.Items.Count-1 do
begin
  t:=t+floattostr(listbox1.Items.Strings[i]);
  label1.Caption:= strtofloat(t); // не помню точно как функция называется
end;
end;
как то так...

---

Rav4   (2008-11-17 10:00:00) [24]

Что-то с утра не включаюсь...


procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
   s: string;
   t: extended;
begin
 for i:=0 to listbox1.Items.Count-1 do
 begin
   s:= listbox1.Items.Strings[i];
   t:=
   label1.Caption:= floattostr(t);
 end;
end;



---

Сергей М.   (2008-11-17 09:49:00) [25]

> вещественные числа в компоненте Listbox


Там нет вещественных чисел.
Там есть строковые представлениявещественных чисел.
Подсказка: StrToFloat()

---

Страницы:   < 1 2 >

Наверх