sumar lineas de memo
 

hola amigos, aca molestandolos otra vez, quiero ver si me pueden hechar la mano, tengo un memo y en cada linea tengo una cantidad, lo que necesito hacer es sumar todas las lineas y poner el resultado en un edit, bueno como siempre gracias de antemano

Hola.

Código Delphi [-]
function TForm1.SumarLineas(Lineas: TStrings): Double;
var
  i: Integer;
  Value: Double;
begin
  Result:= 0;
  for i:= 0 to Lineas.Count - 1 do
  begin
    if TryStrToFloat(Lineas[i], Value) then
      Result:= Result + Value;
  end;
end;

llamada:

Código Delphi [-]
   Edit1.Text:= FloatToStr( SumarLineas(Memo1.Lines) );

Nota: El parámetro lo hice de tipo TStrings así te permite cosas como:

Código Delphi [-]
   Edit1.Text:= FloatToStr( SumarLineas(ListBox1.Items) );
   // o 
   Edit1.Text:= FloatToStr( SumarLineas(RichEdit1.Lines) );
  //...

Saludos.

Hola
Estas seguro amigo?.
Saludos:)

muchas gracias ecfisa , justo lo ke andaba buscando, gracias

Hola
Veo que cada vez entiendo menos, que viejo estoy.
Saludos

Recién veo tu post... :D

Como siempre, tenés toda la razón en la interpretación del texto. ;)

Lo que pasa es que supuse que conocía Memo.Lines.Count y por descarte, debían ser los valores... :)

Saludos mi amigo.