sumar lineas de memo

[marareta]

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

[ecfisa]

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.

[[Caral]]

Hola
Estas seguro amigo?.

Empezado por marareta

........ 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..............

Saludos

[marareta]

muchas gracias ecfisa , justo lo ke andaba buscando, gracias

[[Caral]]

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

[ecfisa]

Empezado por Caral

Hola
Estas seguro amigo?.

Saludos

Recién veo tu post...

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.