Задание

[baalok]

Надо
Создать визуальное приложение, с помощью которого можно заполнить символьный массив с использованием компонента Memo. Вывести на экран сумму элементов сформированного массива.
Примечание: Пользователь вводит в каждую строку компонента Memo числовые значения. По нажатию на кнопку "Сформировать" программно формируется массив целочисленных чисел. Сформированный таким образом массив выводиться в соответствующий элемент вывода формы. По нажатию на кнопку "найти сумму" вывести в соответствующее поле вывода значение суммы элементов массива.

как это сделать?

[Valio]

http://programmersforum.ru/rules.php

Из предыдущей, закрытой, темы Вы ничего не усвоили?

[baalok]

я не писала ни помогите ни спасите....не было обращений к кому-либо конкретному..так в чем же проблема объясните мне пожалуйста..

[MyLastHit]

как это сделать?

Вы пишите задание, и потом "как это сделать?"
Что вы хотите услышать в качестве ответа? Как это сделать написано в Примечании. Чуть ли не алгоритм готовый.

[baalok]

[QUOTE=MyLastHit;799998]Вы пишите задание, и потом "как это сделать?"
Что вы хотите услышать в качестве ответа? Как это сделать написано в Примечании. Чуть ли не алгоритм готовый.


это же форум программистов...я всего лишь хотела что бы мне объяснили...по личным причинам здоровья у меня не было возможности изучить этот материал вместе со всеми а сейчас я просто хочу понять...вот и все..

[artemavd]

А книги отменили уже?

[MyLastHit]

Значит создаете на форме Memo, кнопку и два Label.
Объявляете глобально:

var i,sum:integer;
a:array of integer;

Создаете обработчик для кнопки, и в нем:

SetLength(a, memo1.lines.count);
sum:=0;
for i:=0 to memo1.lines.count-1 do
  begin
    a[i+1]:=StrToInt(memo1.lines[i]);
    label1.caption:=label1.caption+memo1.lines[i]+', '; //Подаем на вывод массив который получился
  end;
for i:=1 to memo1.lines.count do
  sum:=sum+a[i];
label2.caption:=inttostr(sum);//Подаем на вывод сумму

Надеюсь правильно. Компилятора нету на машине. Проверку сами напишите.

[baalok]

спасибо огромное.))буду пробовать