Как вывести сумму строк из мемо?

← →
oliksin (2013-06-08 15:16) [0]

У меня несколько значений в мемо, например:
234
54654
765
8767
и т.д.
Мне нужно, чтобы вывело через showmessage сумму этих чисел. Как это сделать? Когда я делаю сумму,у меня почему-то выводит только последнее значение из всего мемо. Почему?

← →
Германн © (2013-06-08 15:23) [1]

> Когда я делаю сумму,у меня почему-то выводит только последнее
> значение из всего мемо. Почему?

Показывай как делал.

← →
oliksin (2013-06-08 15:31) [2]

begin
for n:=1 to strtoint(edit1.Text) do // прогон по строкам
begin
k:=0;
J:=(((stepen((-1),(n+1)))*(stepen(x,2*n)))/(2*n*(2*n-1)))-((x*arctan(x))-ln(sqrt(1+stepen(x,2))));
x:=x+0.07;
Form1.Memo3.Lines.Add(floattostr(J));
end;
k:=k+J;
end;
Showmessage(floattostr(k));

end;

вот как то так.

← →
Германн © (2013-06-08 15:41) [3]

> вот как то так.

Отформатируй код как положено. Тогда может поймешь, что строка
k:=k+J;
находится не там где ей полагается быть.

← →
килкенни (2013-06-10 13:03) [4]

summa = 0;
error:= false;

for i := 0 to memo1.lines.count -1 do begin
a := strtointdef(memo1.lines[i], 0);
if a = 0 then
error := true
else
inc(summa , a)
end;

арктангенсы не знаю куда впихнуть.

> килкенни (10.06.2013 13:03:04) [4]

Между строк

Как вывести сумму строк из мемо? Найти похожие ветки