O tal ListBox....

Delphi

15/10/2003

Preciso de uma forcinha...
Tenho um list box com varios valores:
1,5
10
3,5
4

Gostaria de somar todos os valores do list box.
É fácil, mas meu dia hoje não ta pra programar...
Agradeço a ajuda.


Geisonc

Geisonc

Curtidas 0

Respostas

Beppe

Beppe

15/10/2003

var
  Sep: Char;
  I: Integer;
  Total: Double;
begin
  Sep := DecimalSeparator;
  try
    DecimalSeparator := ´,´;
    Total := 0;
    for I := 0 to ListBox1.Items.Count - 1 do
      Total := Total + FloatToStr(ListBox1.Items[I]);
  finally
    DecimalSeparator := Sep;
  end;  
end;


É fácil, mas meu dia hoje não ta pra programar...

Não deve tah msm :o

Ataliba


GOSTEI 0
Geisonc

Geisonc

15/10/2003

[Error] UOpcionais.pas(71): Incompatible types: ´Extended´ and ´String´


???


GOSTEI 0
Cebikyn

Cebikyn

15/10/2003

Troque FloatToStr por StrToFloat.


GOSTEI 0
POSTAR