Como somar em um ListBox

19/12/2003

1

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


Responder

Posts

19/12/2003

Cebikyn

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;



Responder

19/12/2003

Latrodectrus

Muito Obrigado.
funcionou!


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira