Delphi - Sumar un Dblistbox o listbox

   
Vista:

Sumar un Dblistbox o listbox

Publicado por Ricardo (9 intervenciones) el 05/11/2009 23:51:05
Hola una pregunta como puedo sumar los datos de un dblistbox o un listbox y que me muestren en un label o edit, ya que estoy haciendo un programa semenjante a una tienda de autoservicios, bueno espero que me auxilien.Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Sumar un Dblistbox o listbox

Publicado por maslfire (4 intervenciones) el 07/11/2009 07:33:38
Hola Ricardo,

En primera estoy suponiendo que los datos que deseas sumar son cantidades numericas (enteros o flotantes), te doy un ejemplo facilito.

procedure TForm1.Button1Click(Sender: TObject);
var
ii : integer;
suma : double;
begin
suma := 0.00;
ii := 1;
repeat
begin
suma := suma + StrToFloat(ListBox1.Items[ii]);
ii := ii + 1;
end;
until ii = ListBox1.Count;
Edit1.Text := FloatToStr(suma);
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar