Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2014.03.23;
Скачать: CL | DM;

Вниз

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

 
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;

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


 
Anatoly Podgoretsky ©   (2013-06-10 20:18) [5]

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

Между строк



Страницы: 1 вся ветка

Текущий архив: 2014.03.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.006 c
2-1369985084
Owl
2013-05-31 11:24
2014.03.23
работа с TStringStream


3-1296733567
Михаил
2011-02-03 14:46
2014.03.23
Составление запроса MySQL


1-1323258416
Kamilos
2011-12-07 15:46
2014.03.23
Как сделать чтобы Image изменялся вместе с формой?


2-1369649164
alexdn
2013-05-27 14:06
2014.03.23
Мигает картинка


6-1271928108
vvv777
2010-04-22 13:21
2014.03.23
как передать файл из компа в контроллер по ethernet