suma w listbox

Odpowiedz Nowy wątek
karpiu71
2006-12-27 22:09
karpiu71
0

mam na formularzu komponent listbox a w nim liczby (kazda w osobnej lini) podane
jak zsumowac wszystkie liczby z wszystkich lini i wyswietlic w edit

Pozostało 580 znaków

Gumiś
2006-12-27 22:32
Gumiś
0
var  
  i    : integer;
  suma : single;
begin
  suma:=0;
  for i:=0 to ListBox1.Items.Count-1 do
    suma:=suma+StrToFloatDef(ListBox1.Items[i],0);
end;

Pozostało 580 znaków

Gumiś
2006-12-27 22:33
Gumiś
0
var  
  i    : integer;
  suma : single;
begin
  suma:=0;
  for i:=0 to ListBox1.Items.Count-1 do
    suma:=suma+StrToFloatDef(ListBox1.Items[i],0);
end;

Pozostało 580 znaków

Odpowiedz

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0