Sumar el contenido de un Memo

[RoyTan]

Saludos.

Tengo una base de datos Dbf.
Y en ella un campo Memo que contiene números.
Mi pregunta es… ¿Se pueden sumar esos números?
Y si es así ¿Cómo?

Gracias.

[Neftali [Germán.Estévez]]

Puedes acceder a las líneas del meno con:

Código Delphi [-]
  memo.Lines[0]
  memo.lines[1]
  ....

Eso te devolverá strings.

Para convertirlos a enteros puedes hacer:

Código Delphi [-]
  i := StrToInt(memo.lines[0]);
  ....

Por lo tanto podrías sumar las líneas usando...

Código Delphi [-]
  result := 
    StrToInt(memo.lines[0]) + 
    StrToInt(memo.lines[1]) + 
    StrToInt(memo.lines[2]) + 
    ...

Esto te puede servir de guía; Deves tener en cuenta cuantas líneas hay en el memo; Que relamente sean números (sino la conversion con StrToInt fallará),...

[RoyTan]

Gracias Neftali por contestar.

El problema es que nunca sé cuantos registros tengo en el memo.
Lo mismo tengo 5 que 100 y no se como recorrerlos para sumarlos.

Gracias y perdona mi torpeza, pero es que llevo 3 horas dándole vueltas.

Saludos.

[[Ivanzinho]]

Con la propiedad TMemo.Lines.Count puedes saber cuantas líneas tiene el componente TMemo, luego solo tienes que recorrelas como te comento neftali y aplicar el algoritmo conveniente.

Un saúdo.

[[Delphius]]

Hola RoyTan,

Una manera de recorrerlo es emplear for:

Código Delphi [-]
suma := 0;
for i:= 0 to Memo1.Lines.Count - 1 do
  inc(suma, StrToInt(Memo1.Lines[i]);

Lo puse de memoria, no tengo Dephi a mano en estos momentos.

Ivan.... no se vale... yo estaba respondiendo al chico... XD.

Saludos,

[RoyTan]

Perfecto, gracias a todos.

Y perdonad mi tardanza a la hora de contestar, pero he tenido que ausentarme y no he podido hacerlo antes.


Gracias de nuevo.