Como somar em um ListBox

Delphi

19/12/2003

Como faço para quando eu pressionar um botão os itens de um listbox sejam somados e colocado em um edit?


Latrodectrus

Latrodectrus

Curtidas 0

Respostas

Cebikyn

Cebikyn

19/12/2003

var
  x: Integer;
  soma: Extended;
begin
  for x:=0 to ListBox1.Items.Count-1 do
    soma:=soma+StrToFloat(ListBox1.Items[x]);

  Edit1.Text := FloatToStr(soma);
end;



GOSTEI 0
Latrodectrus

Latrodectrus

19/12/2003

Muito Obrigado.
funcionou!


GOSTEI 0
POSTAR