Fórum O tal ListBox.... #188886
15/10/2003
0
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.
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
Curtir tópico
+ 0
Responder
Posts
15/10/2003
Beppe
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
Responder
Gostei + 0
15/10/2003
Geisonc
[Error] UOpcionais.pas(71): Incompatible types: ´Extended´ and ´String´
???
???
Responder
Gostei + 0
16/10/2003
Cebikyn
Troque FloatToStr por StrToFloat.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)