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
0
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;
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;