Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

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

Anatoly Podgoretsky (2013-06-10 20:18:00) [1]
> килкенни (10.06.2013 13:03:04) [4]

Между строк

килкенни (2013-06-10 13:03:00) [2]
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;

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

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

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

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

oliksin (2013-06-08 15:31:00) [4]
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:23:00) [5]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »