Sumar el contenido de un Memo

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